Question

СОСТАВЬТЕ ПРОГРАММУ КОТОРАЯ ФОРМИРУЕТ МАССИВ ИЗ 16-ти случайных целых чисел от -20 до 20 и находит элементы с нулевыми значениями

Answer 1

Program Massiv;
Const N:= 16;
Var A: array [1..N] of integer;
 i: integer ;
Begin 
Randomize;
For i:= 1 to N Do 
A[i] := -20 + Random(20);
For i:= 1 to N Do
If A[i]:=0 then Writeln (A[i]) ;
Readln;
End.