Пожалуйста помогите, решить задачу на паскале!!
Дан произвольный двумерный массив целых чисел. Создать в нем два дополнительных столбца.В первый из них поместить минимальные элементы, а во второй максимальные элементы каждой строки этого массива.

2

Ответы и объяснения

2013-06-25T07:16:45+00:00

uses crt;
var
    a:array [1..100,1..100] of integer;
    n,m,i,j,max,min:integer;
begin
    clrscr;
    write ('Кол-во столбцов(M<98): ');readln(m);
    write ('Кол-во строк: ');readln(n);
    randomize;
    writeln ('Before: ');
    for i:=1 to n do begin
      for j:=1 to m do begin
        a[i,j]:=random(11)-2;
        write (a[i,j]:4);
      end;
      writeln;
    end;
    for i:=1 to n do begin
      max:=a[i,1];
      min:=a[i,1];
        for j:=2 to m do
           if a[i,j]<min then min:=a[i,j] else
             if a[i,j]>max then max:=a[i,j];
       a[i,m+1]:=min;
       a[i,m+2]:=max;
    end;
    writeln ('After: ');
    for i:=1 to n do begin
      for j:=1 to m+2 do write (a[i,j]:4);
      writeln;
    end;
end.

2013-06-25T17:47:38+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Работает на Паскаль АВС:

 


Program Anna0303;
uses crt;
const
  n=10;
  m=10;
var
  a:array [1..n,1..(m+2)] of integer;
  i,j,max,min:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  randomize;
{заполняем массив}
  writeln ('Начальный массив: ');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(101)-50;
          write (a[i,j]:4);
        end;
      writeln();
    end;
{ищем макс и мин каждой строки}
  for i:=1 to n do
    begin
      max:=a[i,1];
      min:=a[i,1];
      for j:=2 to m do
          if a[i,j]<min then min:=a[i,j]
        else
          if a[i,j]>max then max:=a[i,j];
      a[i,m+1]:=min;
      a[i,m+2]:=max;
    end;
{выводим массив результат}
  writeln();
  writeln('+-----------------------------------------------------------------------+');
  writeln('|                          Массив:                          | Min | Max |');
  writeln('+-----------------------------------------------------------------------+');
  for i:=1 to n do
    begin
      write('|');
      for j:=1 to m+2 do
        write (a[i,j]:4,' |');
        writeln();
        writeln('+-----------------------------------------------------------------------+');
    end;
    end.