Предмет: Информатика,
автор: Caribou
Помогите, пожалуйста.
Программа Паскаль.
Найдите количество элементов кратных 5 в массиве из N чисел. N <= 5.
Ответы
Автор ответа:
0
const nmax = 5;
var a:array [1..nmax] of integer;
i,k:integer;
begin
k:=0;
randomize;
for i:=1 to nmax do
begin
a[i]:=random(11)+10;
write (a[i],' ');
if a[i] mod 5 = 0 then inc(k);
end;
writeln;
writeln ('Kol-vo: ',k);
end.
var a:array [1..nmax] of integer;
i,k:integer;
begin
k:=0;
randomize;
for i:=1 to nmax do
begin
a[i]:=random(11)+10;
write (a[i],' ');
if a[i] mod 5 = 0 then inc(k);
end;
writeln;
writeln ('Kol-vo: ',k);
end.
Интересные вопросы
Предмет: Химия,
автор: bogdanvedeneev31
Предмет: Математика,
автор: nikitamuhamatanov307
Предмет: История,
автор: vadrosoha
Предмет: Физика,
автор: ann1331