varb: array [1..8] of integer; r,q: integer; begin for r: =1 to 8 do begin q: =0; read(b[r]); end; for r: =1 to 8 do if b[r] mod 2=1 then q: =q+b[r]; writeln; writeln('сумма нечетных чисел равна ',q); end.
Ответ дал: Гость
var
s,a,n,i,min,max: integer;
begin
min: =32767;
max: =-32768;
readln(n);
for i: =1 to n do
begin
readln(a);
if a< min then min: =a;
if a> max then max: =a;
end;
s: =(min+max)/2;
writeln(s);
end.
Ответ дал: Гость
var
x,y,z: longint;
begin
readln(x,y,z);
if (x> 100)or(y> 100)or(z> 100) then writeln('false')
Популярные вопросы