дан одноименный массив

Question

дан одноименный массив (назвать самим) 
определить сумму квадратов всех элементов массива, 
определить среднее арифмитическое всех элементов массива, 
найти колличество элементов кратных 3, 
и найти колличество положительных и отрицательных элементов

Мохьмад Исбахиев · Accepted Answer

var n,i,p,s,sr,k: integer; 
a: array [1..1000] of integer; 
begin 
writeln('введите количество элементов массива'); 
readln(n); 
for i:=1 to n do 
begin 
read(a); 
s:=s+sqr(a); 
sr:=sr+a; 
if(a mod 3 =0)then k:=k+1; 
if(a>=0)then p:=p+1; 
end; 
writeln('сумма кв. элементов массива =',s); 
writeln('сред. арифметическое=',sr/n); 
writeln('кол-во элементов кратные 3 =',k); 
writeln('положительные =',p,' отрицательные=',n-p); 
end.

Sergei · Answer

одномерный наверно 
и в каком языке?

Aнюта · Answer

Готовый код заказывайте. 
Помогать смысла не вижу с такой формулировкой вопроса.

Виталий Верещагин · Answer

переделай под свою 
program mas; 
uses crt; 
var 
n, m, i, j, null, pol, otr:integer; 
 x:array[1..100,1..100] of integer; 
 begin 
 clrscr; 
 randomize; 
write('Ввести число строк --> '); readln(n); 
write('Ввести число столбцов --> '); readln(m); 
writeln('Исходная матрица :'); 
writeln('-----------------------'); 
 for i:=1 to n do begin 
 for j:=1 to m do begin 
 x[i,j]:=random(100)-50; 
 write(x[i,j]:4); 
 end; 
 writeln; end; 
 null:=0; pol:=0; otr:=0; 
for i :=1 to m do 
for j:= 1 to n do 
begin 
if (x[ i, j ] = 0) then 
null:= null + 1 
else 
 if (x[ i, j ] > 0) then 
pol:= pol + 1 
else 
otr:= otr + 1; 
end; 
writeln('null= ',null,' pol= ',pol,' otr= ',otr); 
writeln('konec'); 
readln; 
end. 
{null - нулевые 
pol - положительные 
otr - отрицательные }