Вывести элементы массива значения которых меньше их индекса. составить программу (паскаль), оформить ответ!

gadazak gadazak    2   19.07.2019 22:01    1

Ответы
valiullin1998 valiullin1998  25.08.2020 10:56
Var  a: array[1..10] of integer;  i: integer;
begin 
Writeln('Массив '); 
for i := 1 to 10 do  begin   
  a[i] := random(10);   
  write(a[i], ' '); 
end; 
Writeln; 
writeln('Числа и их индекс (по условию)'); 
for i := 1 to 10 do   
if i > a[i] then write('(', a[i], ' - ', i, ') ');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика