var
n, i, j, summ:integer;
a:array[1..100, 1..100] of integer;
begin
write('n = '); readln(n);
writeln('Исходный массив: ');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := random(21);
write(a[i, j]:4);
end;
writeln;
end;
summ := 0;
for i := 1 to n do
summ := summ + a[i,i];
writeln('Сумма элементов стоящих на главной диагонали равна ', summ);
end.
Первый закон электролиза Фарадея: масса вещества, осаждённого на электроде при электролизе, прямо пропорциональна количеству электричества, переданного на этот электрод. Под количеством электричества имеется в виду электрический заряд, измеряемый, как правило, в кулонах.
Второй закон электролиза Фарадея: для данного количества электричества масса химического элемента, осаждённого на электроде, прямо пропорциональна эквивалентной массе элемента. Эквивалентной массой вещества является его молярная масса, делённая на целое число, зависящее от химической реакции, в которой участвует вещество.
program sum_dia;
const r=10;
var a:array[1..r, 1..r] of shortint;
n,i,j:byte;
s:shortint;
begin
randomize;
n:= random(8) + 3;
writeln('Заданная матрица, порядкa ',n,':');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[ i, j ]:=random(21)-10;
write(a[ i, j ]:4);
end;
writeln
end;
s := 0;
for i:= 1 to n do
s:=s + a[ i, i ];
writeln('Сумма элементов главной диагонали: ',s);
end.