Исправь последнюю часть и в описании переменных добавь 2 дополнительных переменных а1 и а2.
...
sum, kolvoel, i, j, n, a1, a2 : integer;
...
srar:=sum/kolvoel;
writeln('srasr=',srar);
for i:=n downto 1 do
for j:=n downto 1 do
if b[i,j]>srar then begin a1:=i; a2:=j; end;
writeln('i=',a1,' j=',a2);
<span>end.</span>
Var
a,b,c,S,P;
begin
writeln ('Введите А ');
readln (a);
writeln ('Введите B ');
readln (b);
c:=<span>sqrt(a*a+b*b);</span>
P:=a+b+c;
writeln ('Площадь треугольника равна --> ',P);
end.
Ответ : РНР- скриптовый язык общего назначения, интенсивно применяемый для разработки веб-приложений .В настоящее время поддерживается подавляющим большинством хостинг -провайдеров и является одним из лидеров среди языков.
Описание алгоритма нахождения НОД делением
1 - <span>Большее число делим на меньшее.
2 - Если делится без остатка, то меньшее число и есть НОД.
3 - Если есть остаток, то большее число заменяем на остаток от деления.
4 - <span>Переходим к пункту 1.
Пример такой:
</span></span>Найти НОД для 30 и 18.
30/18 = 1 (остаток 12)
18/12 = 1 (остаток 6)
12/6 = 2 (остаток 0). Конец: НОД – это делитель. НОД (30, 18) = 6
Смотрите код в приложении.