40 . практическая работа, 10 класс. информатика.

// pascalabc.net 3.3// cборка 1590 от 03.12.2017 begin    var a: =arrrandom(readinteger('введите размер массива-> ',65); a.println;     println(a.where(e-> e> 0).min);     println(a.where(e-> e< 0).defaultifempty.max);   end. пример(1): введите размер массива-> 10 5 22 21 20 40 9 58 57 54 -2 минимальное среди положительных: 5  максимальное среди отрицательных: -2  пример(2): введите размер массива-> 10 26 7 13 60 39 62 24 9 20 11 минимальное среди положительных: 7  максимальное среди отрицательных: 0 

Const n=5; m=6; var  a: array[1..n,1..m] of integer; i,j,k,max: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(100);     write(a[i,j]: 4);   end;   writeln;   end; max: =0; for i: =1 to n do   begin   k: =0;   for j: =1 to m do   if a[i,j] mod 5=0 then k: =k+1;   writeln(i,': ',k);   if k> max then max: =k;   end; writeln('max = ',max); end. пример: исходный массив:   23    5  72    8  28  14   25  78  62  10  61  35   61  30  19  58  98  29   94  36  58  51  90  10   34  82  47  92  41  45 1: 1 2: 3 3: 1 4: 2 5: 1 max = 3