Question

Вводится n чисел. Найти наибольшее.(Паскаль АВС)

Answer 1

Program MAX;
var
    a:integer;{само проверяемое число}
    m:integer;{максимально число}
begin
m:=0;{начальное значение максимального числа}
writeln('Введите ваше число:', '(Если захотите выйти, напишите ноль)':3);
readln(a);
while (a <> 0) then begin
          If (a > m) then begin
          m:= a; end;
           readln(a); end;
writeln('Максимально число:', m:3);
End.

Answer 2

Finding the Largest Number in a Sequence (Pascal)

To find the largest number in a sequence of n numbers in Pascal, you can use a simple algorithm to iterate through the numbers and keep track of the largest number encountered so far. Here's a basic example of how you can achieve this in Pascal:

program FindLargestNumber;
var
   n, i, max, num: integer;
begin
   write('Enter the value of n: ');
   readln(n);
   
   write('Enter number 1: ');
   readln(max);
   
   for i := 2 to n do
   begin
      write('Enter number ', i, ': ');
      readln(num);
      if num > max then
         max := num;
   end;
   
   writeln('The largest number is: ', max);
end.

In this example, the program prompts the user to enter the value of n and then iterates through n numbers, updating the variable max whenever a larger number is encountered.

This algorithm ensures that the largest number in the sequence is identified and displayed at the end of the process.

I hope this helps! Let me know if you have further questions or need additional assistance.