Процедуры и Функции (ЗАДАЧА), Решить через процедуры и функции задачу. Опции

[Ксения]

Дан интервал (с,d) и два произвольных массива R, Т размера n, k соответственно. Найти сумму отрицательных элементов массива R, попадающих в интервал (с,d), и сумму отрицательных элементов массива Т, попадающих в интервал (с,d). Исходные данные взять самостоятельно.

[Ксения]

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.

Сообщение отредактировано: Ксения - 19.12.2011 16:05