Пинск Львов Минск Калуга
Ирина 0 0 0 1
Виктор 1 0 0
Артём 0 0 1 0
Алина о баллов

min і max нужно присвоить а[1].

program pogoda; var t: real; begin write('t='); readln(t); if t> 10 then writeln ('хорошая погода') else begin ; writeln('плохая погода'); end; end.

сетевые устройства

сетевое по

линии связи

остатки от деления 72*n на 105 где n начинается с 2

var i, j: integer;

begin for i : = 2 to 100 do writeln(i*72 mod 105); end.

3967845128451189057249663301026936375429814815875421936027996633072396784512845118905724966330102693637542981481587542193602799663307239

дальше идет повторение т.е. нет остатка 1

то же самое будет если делить 105n с остатком на 72 не будет остатка 1