не могу написать задачу

[denis273]

Задан массив Bij; i=7; j=7. Определить количество всех элементов 1<Bij<15. Распечатать исходные значения и результат.

[Pein95]

вы хоть пытались ето сделать?

[denis273]

Я вообще не знаю что? и как? здесь делать.

[ice!girl]

var
b:array [1..7,1..7] of integer;
i,j,z:integer;
begin
for i:=1 to 7 do
for j:=1 to 7 do
b[i,j]:=random(50)-25;

for i:=1 to 7 do
begin
writeln;
for j:=1 to 7 do
write(b[i,j]:6);
end;
writeln;
for i:=1 to 7 do
for j:=1 to 7 do
if (b[i,j]>1) and (b[i,j]<15) then inc(z);
write('количество искомых элементов: ',z)
end.

как вариант.так-тможно и упростить наверн....ну для нас,новичков,думаю прокатит)))

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.