Var N,A,Min:integer;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
Begin
Read(A);
if (A mod 2 = 0)and(A < Min) then Min:=A;
End;
WriteLn(Min)
End.
В оооочень сильно устаеревших учебниках под телеконференциями понимают <span>организованный тематический обмен сообщениями между пользователями сети. Сейчас это чаще называют форумами.
Чтобы стать участником форума, надо зайти на сайт форума, если требуется, зарегистрироваться, и общаться.
Другие сервисы - электронная почта, IP телефония, чаты и пр.</span>
//Pascal ABC.NET 3.1 сборка 1256
Var
ar:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
readln(ar[i]);
if ar[i] mod 3=0 then k:=k+1;
end;
writeln(k);
end.
Uses Crt;
const
n=40;
var
i,s:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i*i*i;
ClrScr;
Writeln(s);
ReadKey
end.
<u>Результат</u>
672400
1) 0, 1, 2, 3, 4, 5, 6, 7, 8
2) 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 18, 20, 21
3) 68, <span>51.75
4) </span><span>300202
5) </span>76.63, <span>3E.CC
</span><span>111000110001.000001
</span><span>111001.011000101
</span>6) 100100
1110
открыть сайты с переводом сс не так уж и сложно