Написать программу в паскале которая будет с массива записывать числа введенные пользователем ⇒ оставлять только те, которые кратны ⇒ считать их среднее арифметическое. максимальное число чисел - 100. ввод чисел заканчивается числом 0.
Program n1; const n=100; var a: array [1..n] of integer; i,k,sum,temp: integer; begin sum:=0; k:=0; for i:=1 to n do begin write('введите ',i,' элемент: '); readln(temp); if temp=0 then break; if temp mod 8=0 then begin a[i]:=temp; k:=k+1; sum:=sum+a[i]; end; end; writeln('ср. ариф: ',sum/k); end.
const n=100;
var a: array [1..n] of integer;
i,k,sum,temp: integer;
begin
sum:=0;
k:=0;
for i:=1 to n do
begin
write('введите ',i,' элемент: ');
readln(temp);
if temp=0 then break;
if temp mod 8=0 then
begin
a[i]:=temp;
k:=k+1;
sum:=sum+a[i];
end;
end;
writeln('ср. ариф: ',sum/k);
end.