Question

ПАСКАЛЬ!!! Напишите программу для нахождения большего из пяти введённых чисел, используя оператор If на паскале

Answer 1

var

    Data: array[1..5] of Integer;

    i, t: byte;

begin

t := 0;

    for i :=1 to N do

        ReadLn(Data[i]);

    for i :=1 to N do

        if t <  Data[i] then

            begin
                t := Data[i];
            end;

    end;

WriteLn("Наибольшее: ", t);

end.

Answer 2

Конечно! Вот пример программы на языке Паскаль для нахождения большего из пяти введенных чисел с использованием оператора If:

```pascal program FindLargestNumber; var num1, num2, num3, num4, num5, largest: integer; begin writeln('Введите пять чисел:'); readln(num1, num2, num3, num4, num5); largest := num1; // Предполагаем, что первое число является наибольшим if num2 >