СОСТАВЬТЕ ПРОГРАММУ КОТОРАЯ ФОРМИРУЕТ МАССИВ ИЗ 16-ти случайных целых чисел от -20 до 20 и находит элементы с нулевыми значениями
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад