СОСТАВЬТЕ ПРОГРАММУ КОТОРАЯ ФОРМИРУЕТ МАССИВ ИЗ 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.
Нет комментариев
Похожие вопросы
Список предметов
