Скачиваний:
21
Добавлен:
06.02.2016
Размер:
361 б
Скачать
uses crt;
var a,b: array[1..5] of integer;
i,j: byte;
begin
for i:=1 to 5 do
begin
write ('введите ',i,'-й член масива: ');
readln(a[i]);
b[6-i]:=a[i];
end;
writeln;
writeln('Результат: ');
for i:=1 to 5 do writeln(i,'-й член 1 масива: ', a[i]);
writeln;
for j:=1 to 5 do writeln(j,'-й член 2 масива: ', b[j]);
end.
Соседние файлы в папке 3 лаб. Массивы