Задание:
Дан массив состоящий из 10 элементов. Заполнить его с клавиатуры. Вывести на экран только те числа для которых из значение больше номера ихиндекса.
Решение:
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.
Знаете другой ответ?