Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
проектор
...,
Проектор
var
s,a,n,i,min,max: integer;
begin
min: =32767;
max: =-32768;
readln(n);
for i: =1 to n do
readln(a);
if a< min then min: =a;
if a> max then max: =a;
end;
s: =(min+max)/2;
writeln(s);
end.
количество кбайт умножаете на 1024 получаете количество символов 3,5*1024=3584
Популярные вопросы