Вопрос по информатике:
Задан массив А[1..5,1..6]. Поменять в нем местами первый и последний столбец.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.01.2018 00:28
- Информатика
- remove_red_eye 18368
- thumb_up 38
Ответы и объяснения 2
var
a:array [1..5,1..6] of integer;
i,j,buf:integer;
begin
randomize;
for i:=1 to 5 do begin
for j:=1 to 6 do begin
a[i,j]:=random(8)+2;
write (a[i,j],' ');
end;
writeln;
end;
for i:=1 to 5 do begin
buf:=a[i,1];
a[i,1]:=a[i,6];
a[i,6]:=buf;
end;
writeln;
for i:=1 to 5 do begin
for j:=1 to 6 do write (a[i,j],' ');
writeln;
end;
readln;
end.
- 23.01.2018 10:37
- thumb_up 28
Program vvv2;
uses crt;
const n=5;
const m=6;
var
a:array[1..n,1..m] of integer;
st:array[1..n] of integer;//массив для хранения столбца
i,j,nomer,min : integer;
begin
Randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:= Random(100); //заполняем массив
writeln;
writeln('Начальный массив:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);//выводим массив
writeln;
end;
writeln('*** alphaues is thinking... ***');
for i:=1 to n do
begin
st[i]:=a[i,1];
a[i,1]:=a[i,m];
a[i,m]:= st[i];
end;
writeln;
writeln('Результат:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);//выводим массив
writeln;
end;
end.
- 24.01.2018 03:05
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.