Решите систему уравнений :

For

While…

Repeat…

Верного ответа нет

const
N=20;
var
a:array [1..N] of integer;
i,j,max:integer;
begin
for i:= 1 to N do
readln(a[i]);
max:=99;
j:=a[i];
for i:= 1 to N do
if (j>99) and (j<999) and (j mod 9 <>0) and (j>max) then max:=j;
if max>99 then writeln (max) else writeln ('no');
readln;
end.

программа проверяет только последнее число, а не все 20. где ошибка?

что я могу еще сказать?

острові зі стороною а м. перебували к Робінзонів. Чи не порушені їхні права на житло, якщо на кожного Робінзона повино придбати S м^2 площі острова? Скільком новим Робінзонам ще вистачить місця на острові?

8.3x1 + 3.7x2 - 2.4x3=2.3
3.4x1 - 2.3x2 + 5.2x3=3.5
1.8x1 + 4.3x2 + 1.2x3=-1.2
помогите пожалуйста друзья очень срочно нужен!

Используя формулы нахождения
дискриминанта и неизвестных,

решите квадратное
уравнение 12х^2+5х-2=0