Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

1. Составить программу, которая каждый элемент массива увеличивает на его порядковый номер.

Ответ оставил Гость

Program p1;
var a:array[1..10] of integer;
    i:integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(10);
writeln(Массив:);
for i:=1 to 10 do writeln(a[,i,]=,a[i]);

for i:=1 to 10 do a[i]:=a[i]+i;
writeln(Результат:);
for i:=1 to 10 do writeln(a[,i,]=,a[i]);

end.