{* Задача 393 *}

Unit ZADACH393;
Interface
Implementation
Begin
 writeln('Дан массив А(5,4). a. определить, сколько его элементов имеют значение меньше, чем 0.25; b. сумму элементов в тех столбцах, которые не содержат отрицательных элементов; c. переставляя столбцы заданной матрицы, расположить их в соответствии с ростом характеристик. Характеристикой столбца матрицы назовем сумму модулей его отрицательных нечетных элементов. ');
End.

Program Ice3;

Uses zadach393.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  A : Array[1.. 5, 1..4] Of real;
  i : integer;
  j : integer;
  p : integer;
  z : integer;
  k : integer;
  s : real;
  Begin
  clrscr; {* Очистка экрана *}
  randomize;
  writeln('Matrica:');
For i := 1 To 5 Do {* Переменная i увеличивается с 1 до 5 *}
  For j := 1 To 4 Do {* Переменная j увеличивается с 1 до 4 *}
    A[i, j] := random - 0.1;
For i := 1 To 5 Do {* Цикл для i => [1 .. 5] *}
  Begin
For j := 1 To 4 Do {* Переменная j увеличивается с 1 до 4 *}
  write(A[i, j] : 5:2);
writeln
End;
writeln; {* Пустая строка *}
For i := 1 To 5 Do {* Цикл для i => [1 .. 5] *}
  Begin
k := 0;
For j := 1 To 4 Do {* Переменная j увеличивается с 1 до 4 *}
  Begin
If A[i, j] = 0 Then
  z := z + 1;
If z = 5 Then
  Begin
s := 0;
For p := 1 To 5 Do {* Цикл для p => [1 .. 5] *}
  s := s + a[p, j];
writeln('Summa v stolbce ', j, '=', s : 5 : 2);
End;

End;
readkey; {* Ждем нажатия любой клавиши *}
End..