СОСТАВЬТЕ ПРОГРАММУ КОТОРАЯ ФОРМИРУЕТ МАССИВ ИЗ 16-ти случайных целых чисел от -20 до 20 и находит элементы с нулевыми значениями
СОСТАВЬТЕ ПРОГРАММУ КОТОРАЯ ФОРМИРУЕТ МАССИВ ИЗ 16-ти случайных целых чисел от -20 до 20 и находит элементы с нулевыми значениями
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы