Работа с массивами,2 задачи

[Павел Бочаров]

решите пожалуйст задачу
1)массив с(к) определить среднеквадратичное элементов массива (одномерного) каждый элемент больше -1,количество элементов меньше 20

2)Массив v 15X10 найти сумму элементов матрицы
Текст если можно полностью.
заранее спасибо большое

[Marques22]

У меня с матикой туго что такое среднеквадротичное?

[Marques22]

вот 2 задание
Program z;
uses crt;
type
mas=array[1..15, 1..10]of integer;
var
a:mas;
i,j,S:integer;
begin
S:=0;
writeln('Vvedite elementi massiva');
for i:=1 to 3 do
for j:=1 to 3 do
readln(a[i,j]);
clrscr;
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(a[i,j]:3);
writeln;
end;
writeln('Nagmite Enter');
readln;
clrscr;
for i:=1 to 3 do
for j:=1 to 3 do
S:=S+a[i,j];
writeln('Summa =',S);
readln;
end.