В массиве а ( m, n ) в каждом столбце найти минимум, вывести эти минимумы в линейный массив, умножить каждый минимум на 5 и найти произведение - Turbo Pascal

Формулировка задачи:

В массиве а (m, n) в каждом столбце найти минимум, вывести эти минимумы в линейный массив, умножить каждый минимум на 5 и найти произведение этих чисел. (массив вводить самой, без рандома)

Код к задаче: «В массиве а ( m, n ) в каждом столбце найти минимум, вывести эти минимумы в линейный массив, умножить каждый минимум на 5 и найти произведение - Turbo Pascal»

textual
var
a:array[1..6,1..5] of integer;
b:array[1..5] of integer;
min:integer;
i,j:byte;
begin
for i:=1 to 6 do
    for j:=1 to 5 do
 readln(a[i,j]);
writeln('Массив');      
for i:=1 to 6 do
  begin
    for j:=1 to 5 do
      begin
        write(a[i,j],' ');
      end;
  writeln;
  end;
 
for j:=1 to 5 do
  begin
  min:=a[1,j];
    for i:=1 to 6 do
      begin
      if a[i,j]<min then min:=a[i,j];
      end;
      b[j]:=min;
   end;
writeln('линейный массив');
for i:=1 to 5 do
  write(b[i],' ');
writeln('массив умноженный на 5');
  for i:=1 to 5 do
    begin
    b[i]:=b[i]*5;
    write(b[i],' ');
    end;
end.

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ