Мне задали ,о информатике,написать 4 слова,с этим словом f? ? tb*.d? * - id192965420220327 от ekozhushkova 27.03.2022 08:38

Question

Информатика: Мне задали ,о информатике,написать 4 слова,с этим словом f? ? tb*.d? *

ekozhushkova · Accepted Answer

var
b:array [1..100] of integer;
   a:array [1..100,1..100] of integer;
   i, j,n,m,k1,k2: integer;
begin
writeln ('Введите Кол-во строк');
readln (n);
writeln ('Введите Кол-во столбцов');
readln (m);
writeln ('Введите к1');
readln (k1);
writeln ('Введите к2');
readln (k2);
for i :=1 to n do
      for j :=1 to m do
         readln ( a [ i , j ]);
         writeln ('Исходный массив');
         for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
writeln;
     for j :=1 to m do
       b[j]:=a[k1][j];
         for j :=1 to m do begin
        a[k1][j]:=a[k2][j];
        a[k2][j]:=b[j];
      end;
      writeln ('Массив после операций');
      for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
end.

Мне задали ,о информатике,написать 4 слова,с этим словом f? ? tb.d?

MOGZ ответил