помогите пожалуйста с массивом!
for i:=1 to 10 doA[i]:=5*i;for i:=1 to 10 do begink:=A[i]-2;a[10-i+1]:=k;
end
- если нужна программа, меняющая ячейки местами1 2 3 4 5
5 4 3 2 1
вот код
var a:array[1..10] of integer; i,k:integer;begin for i:=1 to 10 do begin A[i]:=5*i; write (a[i]:3); end; writeln; for i:=1 to 5 do begin k:=A[i]; A[i]:=A[10-i+1]; A[10-i+1]:=k; end; for i:=1 to 10 do write (A[i]:3);
end.