Вводятся три числа, означающих длины сторон треугольника. выведите true, если этот треугольник разносторонний, - id627009620210601 от 4205353 01.06.2021 04:26

Question

Информатика: Вводятся три числа, означающих длины сторон треугольника. выведите true, если этот треугольник разносторонний, false иначе. pascal abc.net пример для которого работает программа : 1 2 1 false 3 4 5 true 3 3 3 false

4205353 · Accepted Answer

program max_elementarray ;

var i, max : integer ;

a : array [1..10] of integer;

begin

for i : = 1 to 10 do

begin

readln(a[i]);

end;

max : = a[1];

for i : = 2 to 10 do

if a[i]> max then max : = a[i];

writeln('max element of array = ',max) ;

readln ;

end.

MOGZ ответил