Составьте программу которая заполняет массив B[1 ... 16]случайными целыми числами в диапозоне от - 10 до 20 и определяет колличество чисел кратных 5 и их

Question

Информатика

Ганя

20 июня, 19:31

Составьте программу которая заполняет массив B[1 ... 16]случайными целыми числами в диапозоне от - 10 до 20 и определяет колличество чисел кратных 5 и их

+4

Ответы (1)

Знаете ответ на вопрос?

Филарета · Answer 1

Var

B:array[1 ... 16] of integer;

k, i: integer;

begin

for i:=1 to n do begin

a[i]:=random (-10,20) ;

if (a[i] mod 5) = 0 then begin

writeln (a[i]) ; writeln (i) ; end; end;

end.