Предмет: Информатика,
автор: ilyxa1999
PASCAL С клавиатуры вводится 30 чисел .Сколько среди них нулей .Найти среднее арифметическое из суммы чисел кратных 5-ти.
Ответы
Автор ответа:
0
var nulls, average, n, s: integer;
var arr[0..29]: array of integer;
begin
for var i := 0 to 29 do read(arr[i]);
for var i := 0 to 29 do
begin
if arr[i] = 0 then nulls++;
if arr[i] mod 5 == 0 then
begin
s += arr[i];
n++;
end;
end;
average = s / n;
writeln("0s = ", nulls);
writeln("Average = ", average);
end.
var arr[0..29]: array of integer;
begin
for var i := 0 to 29 do read(arr[i]);
for var i := 0 to 29 do
begin
if arr[i] = 0 then nulls++;
if arr[i] mod 5 == 0 then
begin
s += arr[i];
n++;
end;
end;
average = s / n;
writeln("0s = ", nulls);
writeln("Average = ", average);
end.
Похожие вопросы
Предмет: Английский язык,
автор: angelika793416
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: maksimbasanec8
Предмет: Математика,
автор: viktoria200314
Предмет: Алгебра,
автор: NikaGrod