Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
var a: array[1..10] of integer;
i,s: integer;
randomize;
for i: = 1 to 10 do begin
a[i]: = random(100);
s: =s+a[i];
i,mk,pk,s,p: integer;
p: =1;
a[i]: = random(30+10)-10;
if a[i]> =0 then begin
pk: =pk+1;
end
else begin
mk: =mk+1;
p: =p*a[i];
writeln(pk,s,mk,p);
Популярные вопросы