Задание:
Заполнить массив из 10 элементов случайными числами в интервале [0… 4] и вывести номера всех элементов, равных Х. Пример: исходный массив: 4 0 1 2 0 1 34 1 0 что ищем? 0 А[2], А[5], А[10]
Решение:
var a: array[0… 10] of integer; i,x: integer; Begin read (x); randomize; for i: =1 to 10 do begin a[i]: =random (4); if a[i]=x then writeln ('a[',i,']'); end; End.
Знаете другой ответ?