Написать программу на языке программирования паскаль, который: 1) имеет 10 случайных элементов от 0 до 99 и выводит на экран 2) ищет индекс, равный 25, если такового нет, то сообщает об этом. премного .

257

269

Посмотреть ответы 2

Ответы на вопрос:

AlinaSh25

Информатика

4,5(60 оценок)

Var i: byte; a: array[1..10] of byte; fortune: boolean; begin randomize; write('элементы массива: '); fortune: =false; for i: =1 to 10 do begin a[i]: =random(100); fortune: =fortune or (a[i]=25); write(a[i],' ') end; writeln; if not fortune then writeln('нет элемента со значением 25') end. тестовые запуски: элементы массива: 86 57 51 82 5 25 20 77 67 86 элементы массива: 80 0 7 50 1 12 61 17 96 95 нет элемента со значением 25