Составить программу на паскале. имеется целочисленный массив, состоящий из 10 элем-тов. а) найти сумму первых 5 элементов; б) найти сумму чётных элементов стоящих на чётных позициях.

Вцикле от 1 до 10 вводим i-тый элемент массива. сразу в этом же цикле проверяем два условия: 1) если i < 6 то прибавляем этот элемент к сумме1 2) если i чётное и элемент чётный прибавляем его к сумме2. с телефона не выделяются абзацы, поэтому сори за вид.  program zzz;   var s1, s2: integer; x: boolean; var i: byte; var m: array[1..10] of integer;   begin  s1: =0; s2: =0;   for i: =1 to 10 do begin  writeln ('введите ',i,'-е число массива');   readln (m[i]);   if i< =5 then s1: =s1+m[i];   if ((i mod 2)=0) and ((m[i] mod 2)=0)then s2: =s2+m[i];   end;   writeln ('сумма первых 5 элементов = ',s1); writeln ('сумма чётных элементов стоящих на чётных позициях = ',s2); end.

1)10см=3,937дюма

dpi - точек на дюйм

3,937*1000=3937 - точек

3937*3937=15499969 точек

каждая точка кодируется 2-мя байтами 

всего  30999938 байт

1 мегабайт = 1024*1024=1048576

на картинку  29,56 мегабайта

2) 256 1 байт

200*100=20000 пикселей

1 килобайт = 1024 байта

картинка займет 20000/1024=19,5 килобайта

 

ps а вообще, каждое нужно писать отдельно