profile
Опубликовано 5 лет назад по предмету Информатика от yana1241

1) дан массив целых чисел,состоящий из 10 элементов. Заполнить его с клавиатуры. Вывести на экран только те числа,для которых из значение больше номера их индекса. Помогите пожалуйста,срочно надо!!!((

  1. Ответ
    Ответ дан Yegor55

    var
        m : array [1..10] of Integer;
        i : Integer;
    begin

       Writeln('Введите массив:');
       for i := 1 to 10 do
       begin
          Write(i, ': ');
          Readln(m[i]);
       end;

       for i := 1 to 10 do
          if m[i] > i then
             Write(m[i], ' ');

     

       ReadLn;
    end.

Самые новые вопросы