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

Question

Информатика

Леся

26 июня, 06:38

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

+3

Ответы (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.