написать программку, которая будет вводить n чисел и обретает величайшее и

Написать программку, которая будет вводить n чисел и обретает величайшее и выводит наибольшее на экран

Задать свой вопрос
1 ответ
Var 
  i, n, a, max: integer;
begin 
  write('Кол-во чисел = '); 
  readln(n); 
  for i := 1 to n do  
  begin   
    readln(a);   
    if (i = 1) or (a gt; max) then max := a; 
  end; 
  writeln('Max-число = ', max);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт