Задача в Паскале

[алексей1984]

Задан массив m на n. Числа m и n вводятся вручную. Заполнить массив случайным образом. Найти произведение чисел от 10 до 20. Если таких чисел нет то выводить сообщение «числа в интервале от10 до 20 отсутствуют»

Помогите пожалуйста. вообще не шарю.

[Stilet]

Ну хоть что-то ты пытался сделать? поиск по форуму что дает?

[алексей1984]

Program meow;

type
mas=array[1..100] of integer;
matr=array [1..100] of mas;
var
a:matr;
s,m,n,i,j:integer;
Begin
writeln('ВвЕдИтЕ чИсЛо СтРоК м=');
readln(m);
writeln('ВвЕдИтЕ чИсЛо СтОлБцОв Н=');
readln(n);
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(100);
s:=1;
writeln('пОлУчЕнАя МаТрИцА');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
for i:=1 to m do
for j:=1 to n do
if (a[i,j]> 10) and (a[i,j]<20) then
s:=s*a[i,j];
if s=1 then writeln('чИсЕлВ в ЗаДаНоМ дИаПаЗоНе НеТ') else
writeln('пОлУчЕнНоЕ пРоИзВеДеНиЕ=',s);
end.

[алексей1984]

не знаю правуильно ли???

[unbanned]

writeln('пОлУчЕнАя МаТрИцА');

такое чувство, что с ответов на майле сдернуто

там в честь первого апреля такой прикол с кирилицей устроили)))
а так верно вроде

[алексей1984]

Да решить на майле помогли решил проверить