ФПС. Дан двумерный массив. Найти сумму и количество элементов, попадающих в числовой интервал от kl до k2

ФПС. Дан двумерный массив. Найти сумму и количество элементов, попадающих в числовой интервал от kl до k2
Гость
Ответ(ы) на вопрос:
Гость
Проверено на fpc 3.0.0 const   m=6; // строк   n=9; // столбцов var   a:array[1..m,1..n] of integer;   i,j,k1,k2,s,k:integer; begin   Writeln('Введите границы диапазона: '); Read(k1,k2);   Randomize;   s:=0; k:=0;   for i:=1 to m do begin     for j:=1 to n do begin       a[i,j]:=Random(199)-99; // [-99;99]       Write(a[i,j]:4);       if (a[i,j]>=k1) and (a[i,j]<=k2) then begin         Inc(k); s:=s+a[i,j]         end       end;     Writeln     end;   Writeln('Отобрано элементов: ',k,', их сумма равна ',s) end.   Пример Введите границы диапазона: -20 55   -2 -52 -11 -12  70 -15  90 -51  75  -54 -92  32  54 -72 -24 -40 -37 -20    0 -14 -79  -1 -39 -34  39  47  34  -91 -98 -68 -16 -56 -55  97  66  59  -48 -67 -34  92 -77  12 -67 -23 -90   75  85  65 -98 -58 -53  -6  34  33 Отобрано элементов: 18, их сумма равна 188
Не нашли ответ?
Ответить на вопрос
Похожие вопросы