С (N, N) |
Вычислить сумму и число положительных элементов матрицы, находящихся над главной диагональю |
program matrica;
var
C:array[1..100,1..100] of real; {объявляем двумерный массив}
j,i,n:integer;
s,kol:real;
begin
writeln('razmer matrici');
readln(n); {вводим размер матрицы }
for i:=1 to n do
for j:=1 to n do
begin
write('c[',i,'',j,']=');
readln(c[i,j]); {вводим элементы матрицы}
end;
for i:=1 to n-1
for j:=i+1 to n do {для элементов выше главной диагонали}
if (c[i,j])>0 then {если элемент матрицы больше нуля, то сумма вычисляется}
s:=s+c[i,j];
for i:=1 to n-1 do
for j:=i+1 to n do {для элементов выше главной диагонали}
if (c[i,j])>0 then
{если элемент матрицы больше нуля, то вычисляется количество положительных элементов}
kol:=kol+1;
writeln('s=',s); {вывод суммы}
writeln('kol=',kol); {вывод количества положительных элементов}
readln;
end.
Y(20) |
Вычислить среднее геометрическое элементов массива Y |
program massivodnomer;
var
Y:array[1..20] of real; {объявляем одномерный массив}
N,i:integer;
g:real;
begin
g:=1;
writeln('vvod N <20');
readln(N); {вводим количество элементов массива}
for i:=1 to N do
begin
readln(y[i]); {вводим элементы массива}
g:=abs(g*y[i]); {перемножаем введённые элементы массива}
end; {закрываем цикл}
g:=exp((1/N)*ln(g)); {вычисляем среднее геометрическое элементов массива}
writeln(g); {выводим результат}
readln;
end.