Создайте программу, которая формирует массив из шестнадцати случайных целых от - 20 до 20 и находит элементы с нулевыми значениями

Question

Информатика

Игоша

18 августа, 00:54

Создайте программу, которая формирует массив из шестнадцати случайных целых от - 20 до 20 и находит элементы с нулевыми значениями

+4

Ответы (1)

Знаете ответ на вопрос?

Таюня · Answer 1

Program Massiv;

Const N: = 16;

Var A: array [1 ... N] of integer;

: 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.