Скачиваний:
20
Добавлен:
06.02.2016
Размер:
607 б
Скачать
uses crt;
const K=5;
var a,b: array[1..K] of integer;
i,n,r: integer;
begin
for i:=1 to K do begin
a[i]:=succ(random(100));
b[i]:=succ(random(100));
end;
for i:=1 to K do
writeln(i,'-й член 1 масива: ', a[i]);
writeln;
for i:=1 to K do writeln(i,'-й член 2 масива: ', b[i]);
writeln;
for i:=1 to K do begin
r:=a[i];
a[i]:=b[i];
b[i]:=r;
end;
writeln('Результат :');
for i:=1 to K do writeln(i,'-й член 1 масива: ', a[i]);
writeln;
for i:=1 to K do writeln(i,'-й член 2 масива: ', b[i]);
end.
Соседние файлы в папке 3 лаб. Массивы