, решить задачу для подготовки к ЕГЭ по информатике. Варианты Полякова. С объяснением

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

отношения между объектами - диаграммы эйлера-венна

объект-фотографии

стоимость объекта   -числа

р. об.- эскиз

ф. р. об. - чертежа

эл. с. об.  -схемы

  цв. об.-рисунка

 

 

 

16-битной кодировке unicode.

один символ  s  =16 бит

количество бит  текстового файла    к= 128000 бит/с * 60 с=  7680000

количество символов к/s=7680000/16  =480000

Var       s, m: integer; begin       writeln('возраст саши = ');       read(s);       writeln('возраст маши = ');       read(m);             if s > m then writeln('саша старше маши');       if m > s then writeln('маша старше саши');       if m = s then writeln('одногодки'); end.