Question

Составьте программу выводящую на экран большее из 5 чисел Программа из Кумира

Answer 1

Сделал через массив

program Project2; 
{$APPTYPE CONSOLE}
uses  SysUtils;
const n=4;
var a:array [0..n] of integer;max,i:Integer;
begin 
for i:=0 to n do 
 readln(a[i]); 
min:=a[0];
 for i:=0 to n do 
if a[i]>max then   
max:=a[i]; 
Writeln(max); 
readln;
end.

Answer 2

Код программы на Кумире для вывода на экран большего из 5 чисел

Для создания программы на Кумире, которая будет выводить на экран большее из 5 чисел, можно использовать следующий код:

var
    a, b, c, d, e: integer;

begin
    read(a, b, c, d, e);
    if (a > b) and (a > c) and (a > d) and (a > e) then
        write(a)
    else if (b > c) and (b > d) and (b > e) then
        write(b)
    else if (c > d) and (c > e) then
        write(c)
    else if (d > e) then
        write(d)
    else
        write(e);
end.

Этот код объявляет 5 переменных (a, b, c, d, e), считывает их значения и затем сравнивает их, чтобы определить наибольшее из них. После этого на экран выводится наибольшее число.

Примечание: Пожалуйста, убедитесь, что вы используете среду программирования Кумир для запуска этой программы.