Question

Помогите пожалуйста: написать программу нахождения наибольшего среди четырёх заданных чисел В ПАСКАЛЕ:)

Answer 1

var x1,x2,x3,x4:integer;

 

function max(a,b:integer):integer

begin

   if a>b then max:= a

   else max:=b;

end;

 

Begin

  read(x1,x2,x3,x4);

  x1:=max(x1,x2);

  x2:=max(x3,x4);

  x1:=max(x1,x2);

  writeln(x1);

End.

Answer 2

Программа нахождения наибольшего среди четырех заданных чисел в Паскале может быть написана следующим образом:

program max_of_four;
var
  a, b, c, d, max: integer;
begin
  writeln('Введите четыре целых числа:');
  readln(a, b, c, d);
  max := a; // считаем, что первое число - наибольшее
  if b > max then max := b; // сравниваем с вторым числом
  if c > max then max := c; // сравниваем с третьим числом
  if d > max then max := d; // сравниваем с четвертым числом
  writeln('Наибольшее число: ', max);
end.

Эта программа использует переменную `max`, которая хранит наибольшее число из всех введенных. Изначально она принимает значение первого числа, а затем сравнивается с остальными тремя числами по очереди. Если какое-то число больше, чем `max`, то оно становится новым значением `max`. В конце программа выводит значение `max` на экран.

Для нахождения наибольшего числа из любого количества чисел можно использовать функцию `max` из модуля `Math`, которая принимает в качестве параметра массив чисел и возвращает наибольший элемент массива. Пример использования этой функции:

program max_of_array;
uses Math;
var
  n, i: integer;
  arr: array of integer;
begin
  writeln('Введите количество чисел:');
  readln(n);
  setlength(arr, n); // задаем размер массива
  writeln('Введите числа:');
  for i := 0 to n - 1 do
    readln(arr[i]); // заполняем массив
  writeln('Наибольшее число: ', max(arr)); // выводим наибольший элемент массива
end.

Эта программа сначала считывает количество чисел, которые нужно ввести, а затем создает массив нужного размера. Затем программа заполняет массив введенными числами и выводит наибольший элемент массива с помощью функции `max`.

Надеюсь, это поможет вам понять, как написать программу нахождения наибольшего числа на языке Паскаль. Вы также можете посмотреть другие примеры программ на Паскале на сайтах [1](https://ru.stackoverflow.com/questions/565524/%D0%A4%D1%83%D0%BD%D0%BA%D1%86%D0%B8%D1%8F-%D0%BF%D0%BE%D0%B8%D1%81%D0%BA%D0%B0-%D0%BD%D0%B0%D0%B8%D0%B1%D0%BE%D0%BB%D1%8C%D1%88%D0%B5%D0%B3%D0%BE-%D0%B8%D0%B7-n-%D1%87%D0%B8%D1%81%D0%B5%D0%BB), [2](https://ru.stackoverflow.com/questions/869554/%d0%9d%d0%b0%d1%85%d0%be%d0%b6%d0%b4%d0%b5%d0%bd%d0%b8%d0%b5-%d0%bc%d0%b0%d0%ba%d1%81%d0%b8%d0%bc%d0%b0%d0%bb%d1%8c%d0%bd%d0%be%d0%b3%d0%be-%d0%b8-%d0%bc%d0%b8%d0%bd%d0%b8%d0%bc%d0%b0%d0%bb%d1%8c%d0%bd%d0%be%d0%b3%d0%be-%d0%b7%d0%bd%d0%b0%d1%87%d0%b5%d0%bd%d0%b8%d0%b9) и [3](https://uchi.ru/otvety/questions/programma-dlya-nahozhdeniya-naimenshego-i-naibolshego-iz-treh-chisel-v-paskale).