(Python) Програмиррование с заданиями:
1. Дан файл, элементами которого являются действительные числа. Наибольшее число, которое принадлежит диапазону [a, b].
2. Дан файл, элементами которого являются целые числа. Определить количество отрицательных элементов.

const

 n = 7;

 m = 6;

var

 A, b: array[1..n, 1..m] of integer;

 i, j, max, min: integer;

begin

 writeln('Исходный массив:');

 randomize;

 for i := 1 to n do

 begin

   for j := 1 to m do

   begin

     a[i, j] := random(10) + 3;

     write(a[i, j]:5)

   end;

   writeln;

 end;  

 writeln('Максимальный элемент каждого столбца:');

 for j := 1 to m do

 begin

   max := -Maxint;

   for i := 1 to n do

     if max < a[i, j] then  

       max := a[i, j];

   write(max:5)

 end;

 writeln;

 for j := 1 to m do

 begin

   min := Maxint;

   for i := 1 to n do

     if min > a[i, j] then  

       min := a[i, j];

   for i := 1 to n do

     b[i, j] := a[i, j] - min;

 end;

 writeln('Новый массив:');

 for i := 1 to n do

 begin

   for j := 1 to m do

     write(b[i, j]:5);

   writeln;

 end;  

end.

0

Объяснение:

я руский