Question

Дан массив из 20 элементов, состоящий из целых случайных чисел. Числа
находятся в интервале (-15, 1].
Выполните задание:
Выведите на экран в столбец такой массив, затем, найдите количество
элементов этого массива, равных 0.
СРОЧНО ДАЮ 50 балов

Answer 1

Ответ:

var a:array [1..20] of integer;

i,k:integer;

begin

randomize;

k:=0;

for i:=1 to 20 do

begin

a[i]:=random(16)-14;

writeln(a[i]);

if a[i]=0 then k:=k+1

end;

write(k)

end.