Выполнить в Pascal"Обработка двумерных массивов в программе ** Pascal"

Question

Выполнить в Pascal
"Обработка двумерных массивов
в программе на Pascal"

---

Comments

Не видно часть 2 задания, второго и пятого столбца какой-то строки

---

В массиве 3 на 6 поменять местами элементы второго и пятого столбца строки.___это и есть второе задание

Answer 1

Номер 1
program z1;
var i, j, temp: integer;
ar:array [1..5] of array [1..5] of integer;
begin       
 for i:=1 to 5 do begin               
  temp:=-10;               
  for j:=1 to 5 do begin                       
   ar[i, j]:=temp;                       
   inc(temp, 2);               
  end;       
 end;       
 for i:=1 to 5 do begin               
  for j:=1 to 4 do begin                       
   write(ar[i,j], ' ');               
  end;               
  writeln(ar[i,5]);       
 end;
end.

Номер 3
program z3;
var  ar: array [1..5] of array [1..3] of integer;
ar1: array [1..5] of shortint;
i, j: integer;
begin
for i:=1 to 5 do begin       
 for j:=1 to 2 do read(ar[i, j]);       
 readln(ar[i, 3]);
end;
for i:=1 to 5 do begin       
 for j:=1 to 3 do begin               
  if odd(ar[i, j]) then inc(ar1[i]);       
 end;
end;
for i:=1 to 5 do write(ar1[i], ' ');
end.

Comments

2 задание допишу если будет условие