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

0 голосов
154 просмотров

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


Информатика (85 баллов) | 154 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(1.1k баллов)