<em>Проверено на fpc 3.0.0 </em>
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.
<u>Пример</u>
Введите границы диапазона:
-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
Жила Тётушка Совунья она очень любила информатику и учила всех!
Но один мальчик Сема не любил информатику ,Тётушка учила его ,учила,учила,но он всеровно не хотел учить этот предмет. Один раз когда прозвенел звонок после урока Русского языка (следующий урок был информатика) Сема сказал всем что"А вы знаете ,что информатика это легкий придмет и поэтому я его не учу " А все подумали" Может Семка прав? Довайте выбрасим тетрадки и будем играть лучше на уроке , А довай" (Сказали дети) И выбрасили тетрадки.
Они пришли на урок и начели беситься . Пришла Тётушка Совунья и Сказала"Дети!
Вы чего Информатика Очень полезный урок !" Дети задумались.... Тетушка совунья" Если вы не будите знать Инорматику вы не сможите играть в ваши современные компьютеры!" И дети всё поняли,Даже Сема всё понел ,и начел учить информатику.