Помогите написать Программу на Языке Программирования Паскаль, который: 1) Имеет 10 случайных элементов от 0 до 99 и выводит на экран 2) Ищет Индекс, равный 25, если такового нет, то сообщает об этом. Премного благодарен.
Помогите написать Программу на Языке Программирования Паскаль, который:
1) Имеет 10 случайных элементов от 0 до 99 и выводит на экран
2) Ищет Индекс, равный 25, если такового нет, то сообщает об этом.
Премного благодарен.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы