Дан массив состоящий из 10 элементов. Заполнить его с клавиатуры

Question

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

Answer 1

38

orenb2012

03 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: