Лабы / 1 семестр / Лаба 3

С (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.