profile
Опубликовано 6 лет назад по предмету Информатика от юныйпупер

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

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

  1. Ответ
    Ответ дан Аккаунт удален
    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
Самые новые вопросы