Тимур
5 год назад
исправить ошибки в паскалеprogram exp3;const m=5; n=3;type matr = array [1..m,1..n] of integer;var m: matr; b, i,j, k : integer; повторно объявленный идентификаторbeginclrscr ;randomize;for i:= 1 to m do beginfor j:= 1 to n do beginm [i,j] := random (101) ;end ; end ;k:= n/2 ; попытка присвоить integer тип realfor j:= 1 to k do beginfor i:= 1 to m do beginb := m [ i, j ] ;m [ i , j ] := m [ i, n - j + 1 ] ;m [i, n - j +1 ] := b ;end ; end ;for i:= 1 to m do beginfor j:= 1 to n do beginwriteln ('m[i,j]: 5) ; неверное выражениеend ;writeln ; readln ; end; end .
ОТВЕТЫ
Nedka
Oct 24, 2020
program exp3;
uses crt;
const
m = 5;
n = 3;
type
matr = array [1 .. m, 1 .. n] of integer;
var
A: matr;
b, i, j, k: integer;
begin
clrscr;
randomize;
for i := 1 to m do
begin
for j := 1 to n do
begin
A[i, j] := random(101);
end;
end;
k := n div 2;
for j := 1 to k do
begin
for i := 1 to m do
begin
b := A[i, j];
A[i, j] := A[i, n - j + 1];
A[i, n - j + 1] := b;
end;
end;
for i := 1 to m do
begin
for j := 1 to n do
begin
write(A[i,j]: 5) ;
end;
writeln;
end;
readln;
end.
uses crt;
const
m = 5;
n = 3;
type
matr = array [1 .. m, 1 .. n] of integer;
var
A: matr;
b, i, j, k: integer;
begin
clrscr;
randomize;
for i := 1 to m do
begin
for j := 1 to n do
begin
A[i, j] := random(101);
end;
end;
k := n div 2;
for j := 1 to k do
begin
for i := 1 to m do
begin
b := A[i, j];
A[i, j] := A[i, n - j + 1];
A[i, n - j + 1] := b;
end;
end;
for i := 1 to m do
begin
for j := 1 to n do
begin
write(A[i,j]: 5) ;
end;
writeln;
end;
readln;
end.
942
Смежные вопросы:
