Задание:
СОСТАВЬТЕ ПРОГРАММУ, КОТОРАЯ ФОРМИРУЕТ МАССИВ ИЗ 16 СЛУЧАЙНЫХ ЦЕЛЫХ ЦИСЕЛ ОТ -20 ДО 20 И НАХОДИТ ЭЛЕМЕНТЫ С НУЛЕВЫМИЗНАЧЕНИЯМИ
Решение:
var a: array [1… 16] of integer; //Массив из 16 целых чисел i: integer; begin randomize; write ('Исходный массив: '); for i: =1 to 16 do {Заполняем массив случайными целыми числами от -20 до 20 и распечатываем его} begin a[i]: =random (40) — 20; write (a[i], '); end; writeln; write ('Элементы с нулевыми значениями: '); for i: =1 to 16 do {Распечатываем элементы с нулевыми значениями через точку с запятой} if a[i]=0 then write ('a[', i, ']=', a[i], '; '); writeln; end. Если все правильно, отметь решение как лучшее)
Знаете другой ответ?