Ar
a, b, c, d, n : integer;
begin
write('введите первое число ');
readln(a);
write('введите второе число ');
readln(b);
write('введите третье число ');
readln(c);
write('введите четвёртое число ');
readln(d);
n:=a;
if b>n then n:=b;
if c>n then n:=c;
if d>n then n:=d;
writeln('Большее из чисел равно ', n);
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('Длина последовательности:');
ReadSeqInteger('Вводи:', n).SortedDescending.Println
end.
9611946-если с пробелами
10485760-если без пробелов
Ответ:
case m / 2 + 1 of // значения в case должно быть целым
Объяснение:
#include <bits/stdc++.h>
using namespace std;
int main()
{ int a,b,mx;
cin >> a >> b;
if (a>b) cout << (a-b); else
cout << (b-a);
}