Дан целочисленный массив на n элементов вывести на экран элементы, которые меньше или равны своему номеру.
Заранее спасибо
Const n=15;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln(Массив A:);
for i:=1 to n do
begin
a[i]:=random(16);
write(a[i]:3);
end;
writeln;
for i:=1 to n do
if a[i]<=i then write(a[i]:3) else write( :3);
writeln;
end.
Пример:
Массив A:
14 8 14 1 6 2 4 7 10 3 4 6 15 14 2
1 2 4 7 3 4 6 14 2
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
