2. В массиве А: 7, 0, -2, 0, 3 все нулевые элементы заменить их индексами. Вывести на экран новый массив.
Answers & Comments
vladmor
Const n = 5; var a:array[1..5] of integer; i:integer; begin a[1]:=7; a[2]:=0; a[3]:=-2; a[4]:=0; a[5]:=3; for i:=1 to n do if a[i]=0 then a[i]:=i; for i:=1 to n do write(a[i]:3); end.
Answers & Comments
var a:array[1..5] of integer;
i:integer;
begin
a[1]:=7; a[2]:=0; a[3]:=-2;
a[4]:=0; a[5]:=3;
for i:=1 to n do if a[i]=0 then a[i]:=i;
for i:=1 to n do write(a[i]:3);
end.
Тестовое решение:
7 2 -2 4 3