смотря какой фигуры если : квадрат то сторону возвести в квадрат ; если прямоугольник то перемножить смежные стороны ; если треугольник то сторону умножить на высоту ; если ромб перемножить диаганали между собой и полученный результат разделить на 2 ; если трапеция то сложить основания разделить полученный результат на 2 и умножить на высоту.
Ну и сюда скину. Вдруг не заметишь) Эта автоматически тебе всё сделает. Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); a[i]:=i+1; if max<a[i] then max:=a[i]; writeln(a[i]); end; writeln('Максимальный элемент равен: ',max); end.
Если нужно будет ввести последовательность с клавиатуры, то вот: Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); ReadLn (a[i]); if max<a[i] then max:=a[i]; end; writeln('Максимальный элемент равен: ',max); end.
Ну и сюда скину. Вдруг не заметишь) Эта автоматически тебе всё сделает. Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); a[i]:=i+1; if max<a[i] then max:=a[i]; writeln(a[i]); end; writeln('Максимальный элемент равен: ',max); end.
Если нужно будет ввести последовательность с клавиатуры, то вот: Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); ReadLn (a[i]); if max<a[i] then max:=a[i]; end; writeln('Максимальный элемент равен: ',max); end.
смотря какой фигуры если : квадрат то сторону возвести в квадрат ; если прямоугольник то перемножить смежные стороны ; если треугольник то сторону умножить на высоту ; если ромб перемножить диаганали между собой и полученный результат разделить на 2 ; если трапеция то сложить основания разделить полученный результат на 2 и умножить на высоту.