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

Question

Информатика

Веня

14 сентября, 18:04

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

+1

Ответы (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.