Таблица истинности - в прилагаемом файле.
Просыпаюсь >потягиваюсь >встаю с кровати>иду чистить зубы>одеваюсь>обуваюсь >иду до школы и тд.
R, c = input().split()arr = list() for _ in range(int(r)): arr.append(list(map(int, input().split())))m = max(e for r in arr for e in r) for i, r in enumerate(arr): if m in r: print(i, r.index(m)) break
Var a:string;
b,c:integer;
beginwriteln('Привет, как тебя зовут?');
readln(a);
writeln(a, ', cколько тебе лет?');
readln(b);
writeln(a, ', и тебе ', b, 'лет, в каком году ты родился?');
readln(c);
writeln(c, ', хорошо!');
writeln('Мне пора идти, пока ', a, '!');
<span>end.</span>
===== PascalABC.NET =====
begin
var n := ReadlnInteger;
var a := ReadArrInteger(n);
var s1 := a[0::2].Sorted;
var s2 := a[1::2].SortedDescending;
var s3 := s1.Interleave(s2);
if n.IsOdd then
s3 := s3 + s1.Last;
a := s3.ToArray;
a.Println;
end.