СРОЧНО 99б Задан массив F из 14 элементов случайным образом в диапазоне [-11..11] Найти количество элементов массива кратных 5
Answers & Comments
DeadShotDS
Program n1; var F: array[1..14] of integer; i,k: integer; begin randomize; write('массив: '); for i:=1 to 14 do begin F[i]:=random(23)-11; write(F[i],' '); end; writeln; k:=0; for i:=1 to 14 do if F[i] mod 5=0 then k:=k+1; write('кол-во эл. крат. 5: ',k); end.
Answers & Comments
var F: array[1..14] of integer;
i,k: integer;
begin
randomize;
write('массив: ');
for i:=1 to 14 do begin
F[i]:=random(23)-11;
write(F[i],' ');
end;
writeln;
k:=0;
for i:=1 to 14 do if F[i] mod 5=0 then k:=k+1;
write('кол-во эл. крат. 5: ',k);
end.
Verified answer
Pascal:For a:= 0 to 14 do
if f[a] mod 5 = 0 then
b:= b + 1;
В переменной b кол-во элементов