67

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

rasver 03 апреля 2023

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

категория: информатика

38

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.

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

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...