Программа:
const n=6; m=5;
var
x:array[1..n,1..m] of integer;
i,j,a,b,k:integer;
f:boolean;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
x[i,j]:=random(50);
write(x[i,j]:4);
end;
writeln;
end;
write('a, b: ');
readln(a,b);
k:=0;
for i:=1 to n do
begin
f:=false;
for j:=1 to m do
if (x[i,j]>=a)and(a<=b) then f:=true;
if f then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
Исходный массив:
2 42 11 34 11
26 46 37 21 12
7 18 8 11 29
25 38 4 18 14
8 13 8 46 41
22 29 3 47 46
a, b: 40 50
k = 4
1. Здесь в array 7 пунктов, цикл проверяет, если значение меньше или равно 10, и прибавляет к переменной, изначально равной нулю 1:
Dat[1] := 9; // прибавляем 1, итог 1
Dat[2] := 11; // ничего не делаем
Dat[3] := 10; // прибавляем 1, итог 2
Dat[4] := 13; // ничего не делаем
Dat[5] := 8; // прибавляем 1, итог 3
Dat[6] := 5; // прибавляем 1, итог 4
Dat[7] := 11; // ничего не делаем
ответ: 4
2. Здесь в array 7 пунктов, цикл проверяет, если значение пункта больше того, что сейчас в переменной со стартовым значением первого значения в array, т. е. 19 и записывает его в эту переменную (т. е. ищем наибольшее значение)
Dat[1] := 19;
Dat[2] := 21;
Dat[3] := 20;
Dat[4] := 23;
Dat[5] := 24;
Dat[6] := 25; // это наибольшее, значит 25
Dat[7] := 23;
ответ: 25
3. Здесь в array 12 пунктов, мы проверяем, совпадает ли значение с 17, если да, то прибавляем его к нашей нулевой переменной m. Посчитаем кол-во значений 17 и умножим 17 на это значение, это будет ответ
Ani[1] := 17; // 1
Ani[2] := 17; // 2
Ani[3] := 19;
Ani[4] := 21;
Ani[5] := 23;
Ani[6] := 22;
Ani[7] := 24;
Ani[8] := 16;
Ani[9] := 19;
Ani[10] := 21;
Ani[11] := 17; // 3
Ani[12] :=17; // 4
17 * 4 = 68
ответ: 68