-
IT café
Új hozzászólás Aktív témák
-
artiny
őstag
Hunfaltal: így jó lessz?
program ciklusvektor;
uses crt;
var i:integer;
a:array[1..10] of integer;
b:array[1..10] of integer;
procedure feltoltes;
begin
for i:=1 to 10 do
begin
a[i]:=i;
write('a[',i,'] ',a[i],' ');
end;
end;
procedure pakol;
begin
for i:=1 to 10 do
begin
b[i]:=a[i*1];
write('b[',i,'] ',b[i],' ');
end;
end;
procedure csere;
begin
b[10] := a[1];
for i :=1 to 9 do
begin
b[i]:= a[i+1];
end;
end;
procedure kiiras;
begin
for i:=1 to 10 do
begin
writeln('b[',i,'] ',b[i]);
end;
end;
BEGIN
Clrscr;
feltoltes;
writeln;
pakol;
csere;
writeln;
kiiras;
readln;
END.
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Apple iPhone 13 Midnight 256GB iSTYLE 2025.03.26. GARANCIA
- LG UltraWide 38WN95C-W Monitor 1 év Garancia
- iMac 2017 27" Retina 5K CTO / i7 4.2 GHz / 40 GB DDR4 / 1 TB SSD + doboz
- iMac 2017 27" Retina 5K CTO / i5 3.8 GHz / 40 GB DDR4 / 1 TB SSD / Radeon Pro 580 8 GB + doboz
- iMac 2017 27" Retina 5K CTO / i7 4.2 GHz / 40 GB DDR4 / 500 GB SSD / Radeon Pro 575 4 GB + doboz