Const
N = 5; {количество спортсменов}
var
K : array [1..N] of integer;
i, max : integer;
begin
for i := 1 to N do
begin
write('Результат спортсмена номер: ', i, ': ');
readln(K[i]);
end;
max := K[1];
for i := 2 to N do
if K[i] > max then
max := K[i];
writeln('Максимальный результат: ', max);
end.
Амам-мама апап-папа околбя-яблоко и т.д.
Var s:string;
i,a:longint;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]='-') or (s[i]='*') or (s[i]='/') or (s[i]=',') then
inc(a);
writeln(a);
<span>end.</span>
Ответ:
Римляне использовали непозиционную римскую систему счисления.
Двоичная система, лежащая в основе компьютерной логики, является позиционной.
Program n1;
var a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do if a[i] mod 2=0 then write(a[i],' ');
end.