tolaywow

подарите вот этому аккаунту пару игр кому не жалко, tolayw

const
n=4;
var
i,j: integer;
a: array [1..n, 1..n] of real;
b,c: real;
label 1;
Begin
cls;
b:=0;
c:=-5;
1: for i:=1 to n do
for j:=1 to n do
a [i,j]:=random(5)-random(5);
for i:=1 to n do
for j:=1 to n do
begin
b:=b+a[i,j];
if (a[i,j]>c) then
begin
c:=a[i,j];
end;
end;
if (bc) then goto 1
else
begin
for i:=1 to n do
begin
for j:=1 to n do write(a[ i,j ]:2,' ');
writeln;
end;
writeln ('наибольший элемент = ',c);
writeln ('сумма всех элементов матрицы = ',b)
end;
write ('Нажмите Enter');
readln;
writeln('Выполнение программы завершено');
End.
при написании программа все время выдает 4 4 а должна выдавать максимальный элемент который должен быть равен сумме всех элементов

по математическому анализу задали найти предел из ((корень(н+3)-корень(н^2-3))/()куб корень(н^5-4)-кореньчетв степени(н^4+1)) помогите разобраться пожалуйста, если хотите ставьте минусы, только помогите

program Pikabu;

const
z = 16; // Размер массива
var
a: array [1..z] of real;
N, i: integer;
b: real;
begin
N := 16;
b:=15;
cls;
for i := 1 to N do
begin
a[i] := 1.8 * b + 32;
writeln(b, ' градусов Цельсия = ', a[i]:4:1);
b := b + 1;
end;
end.
выкладываю конечную, вдруг кому пригадится

Лиги добра не существует(