Var i, s: integer;
begin
s:=0;
for i:=1 to 100 do
if (i mod 2 <>0) then s:=s+i;
<span>end;</span>
Program n1;
var a,max: integer;
f: text;
begin
assign(f,'input.txt');
reset(f);
max:=0;
while not eof(f) do
begin
read(f,a);
if (abs(a)>max) and (a<0) and (a mod 2 <>0) then max:=a;
end;
close(f);
assign(f,'output.txt');
rewrite(f);
write(f,max);
close(f);
end.
Материнская плата, центральный процессор, оперативная память, блок питания, жесткий диск, видеокарта, CD/DVD привод.
Var
C:char;
Begin
For C:='0' to '9' do
if Ord(C) mod 3 = 0 then
WriteLn(C)
End.
Var
i: integer;
ar: array[1..10]of integer;
begin
for i := 1 to 10 do read(ar[i]);
for i := 1 to 10 do if(i mod 2 = 0) then write(ar[i],' ')
end.