Question

Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них. Программу можно создать на языке Pascal

Answer 1

Ответ:

Program Xai;

uses crt;

var a,b,c,d,e,max:real;

Begin

   clrscr;

   writeln('Введите 5 чисел');

   readln(a,b,c,d,e);

   if a>b then max:=a else max:=b;

   if c>max then max:=c;

   if d>c then max:=d;

   if e>d then e:=max;

   writeln('Максимальное значение является---> ',max);

   readln

end.

Объяснение:

Answer 2

Конечно, вот пример программы на языке Pascal, которая находит наибольшее из пяти целых чисел:

pascalCopy code
program MaxNumber;

var
  num1, num2, num3, num4, num5, maxNum: integer;

begin
  writeln('Введите пять целых чисел:');
  readln(num1, num2, num3, num4, num5);

  maxNum := num1;

  if num2 > maxNum then
    maxNum := num2;
  if num3 > maxNum then
    maxNum := num3;
  if num4 > maxNum then
    maxNum := num4;
  if num5 > maxNum then
    maxNum := num5;

  writeln('Наибольшее число: ', maxNum);
end.

Программа начинается с ввода пяти целых чисел. Затем она сравнивает каждое из чисел с текущим максимальным значением и, если текущее число больше, обновляет значение переменной maxNum. В конце программа выводит наибольшее число.

Пример использования программы:

Copy code
Введите пять целых чисел:
12
45
9
67
23
Наибольшее число: 67