Задайте с генератора случайных чисел массив размерностью до 50 элементов в диапазоне от 1 до 10. Присвойте всем нечетным членам значение, равное 0, и выведите массив.
А) var a,b,c:real; begin readln(a); readln(b); readln(c); if (a>b) and (a>c) then writeln('Победил 1! Результат: ',a); if (b>a) and (b>c) then writeln('Победил 2! Результат: ',b); if (c>b) and (c>b) then writeln('Победил 3! Результат: ',c); end.
begin
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then writeln('Победил 1! Результат: ',a);
if (b>a) and (b>c) then writeln('Победил 2! Результат: ',b);
if (c>b) and (c>b) then writeln('Победил 3! Результат: ',c);
end.
begin
readln(n);
a:=n mod 10;
b:=n div 10;
writeln(a+b);
end.