дан массив из N элементов .определить среднее арифметическое кратных 5 и некратных 10.решите пожалуйста .буду благодарна
Answers & Comments
fatukah
Var a:array[1..10000]of integer; n,i,k,c:integer; summ:real; begin readln(n); for i:=1 to n do a[i]:=random(100); for i:=1 to n do begin if (a[i] mod 5=0)or(a[i] mod 10>0) then begin c:=c+a[i]; k:=k+1; end; end; summ:=c/k; writeln(summ); end.
Answers & Comments
a:array[1..10000]of integer;
n,i,k,c:integer;
summ:real;
begin
readln(n);
for i:=1 to n do
a[i]:=random(100);
for i:=1 to n do begin
if (a[i] mod 5=0)or(a[i] mod 10>0) then begin
c:=c+a[i];
k:=k+1;
end;
end;
summ:=c/k;
writeln(summ);
end.