СОСТАВЬТЕ ПРОГРАММУ КОТОРАЯ Сформировывает МАССИВ ИЗ 16-ти случайных целых чисел от

СОСТАВЬТЕ ПРОГРАММУ КОТОРАЯ Сформировывает МАССИВ ИЗ 16-ти случайных целых чисел от -20 до 20 и обретает элементы с нулевыми значениями

Задать свой вопрос
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт