Олимпиадный тренинг

Задача . Прописи#42841


Задача

Темы:

Дан текст решения

PascalABC Ожидаемый ответ
var
  n, k, a, i, max, min, ca, ci:int64;
begin
  read(n, k);
  read(a);
  max:=a;
  min:=a;
  for i:=2 to n do
  begin
    read(a);
    if (a > max) then max:=a;
    if (a < min) then min:=a;
  end;
  write(max-min);
end.
 

Напишите аналогичный код на C++
 
 

time 500 ms
memory 256 Mb
Правила оформления программ и список ошибок при автоматической проверке задач

Статистика успешных решений по компиляторам
Комментарий учителя