Задать вопрос
15 октября, 07:53

Помогите написать Программу на Языке Программирования Паскаль, который:

1) Имеет 10 случайных элементов от 0 до 99 и выводит на экран

2) Ищет Индекс, равный 25, если такового нет, то сообщает об этом.

Премного благодарен.

+1
Ответы (1)
  1. 15 октября, 08:55
    0
    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
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Помогите написать Программу на Языке Программирования Паскаль, который: 1) Имеет 10 случайных элементов от 0 до 99 и выводит на экран 2) ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы