Дан интервал (с,d) и два произвольных массива R, Т размера n, k соответственно. Найти сумму отрицательных элементов массива R, попадающих в интервал (с,d), и сумму отрицательных элементов массива Т, попадающих в интервал (с,d). Исходные данные взять самостоятельно.
Krjuger
19.12.2011 19:24
Показывайте наработки и поможем.
Ксения
19.12.2011 20:04
Program P1; Type mas=array [1..100] of Real; Var R, T:mas; n, k, c, d: integer; Procedure VVOD (Var x:mas; Var s:integer); Var i:integer; Begin writeln('VVedite razmer massiva'); readln(s); writeln ('Vvedite interval massiva'); readln (s,d); writeln('Vvedite massiv'); for i:=1 to s do readln (x[i]); end; Function sum(Var x:mas; Var s:integer):real; Var i:=integer; t:=integer; Begin t:=0; for i:=1 to s do if x[i]>=c && x[i]<=d then Begin t:= t + x[i]; else t=t; end; end; Begin writeln('Vvedite massiv R'); VVOD (R, n); writeln ('Vvedite massiv T'); VVOD (T, k); writeln('Summa R',sum(R,n):6:1); writeln('Summa T',sum(T,k):6:1); end; readln; end.
TarasBer
19.12.2011 20:25
С сишки переводишь?
if x[i]>=c && x[i]<=d then Begin t:= t + x[i]; else t=t; end;
Тогда так:
if (x[i]>=c) and (x[i]<=d) then t:= t + x[i]; // зачем тут вообще ветка else?
И по заданию тогда уж
if (x[i]>=c) and (x[i]<=d) and (x[i] < 0) then t:= t + x[i]; // зачем тут вообще ветка else?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.