Друзья, нужно в течение часа. С решением

паскаль, одномерный массив

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.

по формуле n= найдем, сколько было круглых фигурок -  = 4; всего фигурок было 15+4=19. ответ: 19

800*600*24*4/8=5760000 байт=5625 кбайт

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.