HELPP!!
определите среднее арифметическое чётных элементов массива A[1..10]
Написать программу в Паскаль
определите среднее арифметическое чётных элементов массива A[1..10]
Написать программу в Паскаль
Ответ
0/5
(0 оценок)
1
Мозг
Отвечающий
Var
m:array [1..100000] of integer;
k,i:integer;
Begin
k:=0;
randomize;
For i:=1 to 10 do
read(m[i]);
For i:=1 to 10 do
k:=k+m[i];
k:=k mod 10;
writeln(k);
end.