Дано целое число n и массив случайных чисел x[1..n].все элементы,меньше 2,заменить нулями.Кроме того,получить сумму и количество элементов,п ринаднежащих отрезку [3;7]

Дано целое число n и массив случайных чисел x[1..n].все элементы,меньше 2,заменить нулями.Кроме того,получить сумму и количество элементов,п ринаднежащих отрезку [3;7]
Гость
Ответ(ы) на вопрос:
Гость
Var i,n,r,k: integer;     s: array [1..50] of integer; Begin Write('n='); Read(n); for i:= 1 to n do begin s[i]:= random(100); Writeln(s[i]); end; for i:= 1 to n do if s[i]<2 then s[i]:=0; r:=0; k:=0; for i:= 3 to 7 do begin k:=k+1; r:= r+s[i]; end; WriteLn ('kol=', k); WriteLn ('sum=', r); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы