Дана последовательность из n вещественных числе найти разность между max и min (pascal abc)

Считываем сколько чисел получим(или сами решаем чему равно n), делаем цикл на считывание каждого, ищем в них мин и макс.

VAR N, i:integer;
        k, min, max:real;
begin
readln(N);
  for i:=1 to N do begin
  readln(k);
  if i=1 then begin min:=k; max:=k end
  else if k<min then min:=k
  else if k>max then max:=k;
  end;
writeln(min-max);
end.

Запишу на обычном языке, Паскаль не помню уже.

А - первое число. Б - второе число.

Если А больше Б и Б div 5=0 тогда выводится на экран (' Б наименьшее число и нацело делится на 5')

Если Б больше А и А div 5=0 тогда выводится на экран (' А наименьшее число и нацело делится на 5')

 

Точно не помню как выглядит это в Паскале, но что-то типо такого

If A<B and A div 5=0 then writeln ('А наименьшее число и нацело делится на 5');

If B<A and B div 5=0 then writeln ('Б наименьшее число и нацело делится на 5');

оба ответа подходят в русском языке

но логичнее нет

просто у нет в русском 2 функции: согласие с отрицанием и отрицание отрицания

ответ Нет, на рисунке белая скатерть

(я выразил отрицание к вопросу)

словом нет можно выразить и отрицание и согласие

да здесь вообще не подходит его не рассматривает

у нет 2 варианта либо согласие с отрицанием - Нет, скатерть не белая. Либо отрицание вопроса - нет, белая.

при этом первый вариант не верный так как скатерть белая, то есть единственно верный это - Нет, скатерть белая (отрицание вопроса)