Напишите программу, которая получает с клавиатуры возрасты трёх человек (антона, бориса и виктора) и определяет, кто из них старше. пример: возраст антона: 15 возраст бориса: 17 возраст виктора: 16 ответ: борис старше всех.

Program prog; uses crt; var a,b,v: integer; begin clrscr; write('возраст антона = '); readln(a); write('возраст бориса = '); readln(b); write('возраст виктора = '); readln(v); writeln; if (a> b)and(a> v) then writeln('антон старше всех.'); if (b> a)and(b> v) then writeln('борис старше всех.'); if (v> a)and(v> b) then writeln('виктор старше всех.'); if (a=b)and(a> v) then writeln('антон и борис старше виктора'); if (a=v)and(a> b) then writeln('антон и виктор старше бориса'); if (b=v)and(b> a) then writeln('борис и виктор старше антона'); if (a=b)and(a=v) then writeln('антон,борис и виктор одного возраста'); end.

Uses   crt; const   n = 10; type   v = array[1..n] of integer; function mid(var a: v): double; var   i, s: integer; begin   s : = 0;   for i : = 1 to n do s : = s + a[i];   mid : = s / n end; var   x: v;   i, j: integer;   m: double; begin   randomize;   m : = 0;   for i : = 1 to 5 do   begin       writeln('элементы массива ', i);       for j : = 1 to n do       begin           x[i] : = random(100);           write(x[i]: 3)       end;       writeln;       m : = m + mid(x)   end;   writeln('среднее арифметическое пяти массивов равно ', m) end. тестовое решение: элементы массива 1   95 44 54 86 52 39 28 79 29 43 элементы массива 2   75 55 26 22 12 93 34 60 34 42 элементы массива 3   55 80 50 54 52 46 85 47 11 86 элементы массива 4   33 35  5 64 36 66 76 55 24 43 элементы массива 5   31 63 66 11 88  4 31 99 28 39 среднее арифметическое пяти массивов равно 76.6

Const   n = 10; var   i, s: integer;   a: array[1..n] of integer; begin   writeln('введите элементы массива через пробел');   for i : = 1 to n do read(a[i]);   s : = a[n];   for i : = n downto 2 do a[i] : = a[i - 1];   a[1] : = s;   for i : = 1 to n do write(a[i]: 4); end. тестовое решение: введите элементы массива через пробел 4 -5 3 10 -4 -6 8 -10 1 0     0    4  -5    3  10  -4  -6    8 -10    1