Проблема с матрицами и массивами

[Васяныч]

помогите решить!
1. Напишите программу, которая в заданной матрице A подсчитывает и выводит на экран количество элементов, попадающих в заданный интервал [a,b] и значения этих элементов.
2. Напишите программу вычисления произведения сумм квадратов элементов каждой строки матрицы А.

[Grag]

Не проблема, легко!
Обращайся!
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[Stilet]

Васяныч

Покажи код как ты матрицу вводишь.

[Grag]

Сообщение от Васяныч

1. Напишите программу
2. Напишите программу

Нет у него никакого кода...

[Филантроп]

(*************************************************************
 *     Элементы матрицы из промежутка [a;b] их количество    *
 *************************************************************)
program matrix1;
uses crt;
var
ms:array [1..100,1..100] of Real;
a,b:real;
i,j,n,m,k:integer;
function min(x,y:real):real;
begin
if x>y then min:=y
else min:=x;
end;
function max(x,y:real):real;
begin
if x>y then max:=x
else max:=y;
end;
begin
randomize;
Writeln('n=');
readln(n);
Writeln('m=');
readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
ms[i,j]:=random(20)-10+random(100)/2;
write (ms[i,j]:6:2);
end;
writeln;
end;
k:=0;
Writeln('===============================');
Writeln('a=');
Readln(a);
Writeln('b=');
Readln(b);
for i:=1 to n do
for j:=1 to m do
if (ms[i,j]>=min(a,b)) and (ms[i,j]<=max(a,b))
then
begin
k:=k+1;
writeln('[',i,',',j,']=',ms[i,j]:6:2);
end;
Writeln('Count=',k);
readln;
end.

(*************************************************************
 *     Сумма квадратов элементов каждой строки матрицы       *
 *************************************************************)
program matrix2;
var
ms:array [1..100,1..100] of Real;
s:real;
i,j,n,m:integer;
begin
randomize;
Writeln('n=');
readln(n);
Writeln('m=');
readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
ms[i,j]:=random(20)-10+random(100)/100;
write (ms[i,j]:6:2);
end;
writeln;
end;
Writeln('===============================');
for i:=1 to n do  begin
  s:=0;
for j:=1 to m do
s:=s+sqr(ms[i,j]);
writeln('sum[',i,']=',s:6:2);
end;
readln;
end.