Линейный массив содержит сведения о количестве осадков, выпавших за каждый из 12 месяцев одного года. составить программу, определяющую общее количество осадков за этот год, среднемесячное количество осадков, количество засушливых месяцев (когда количество осадков было меньше 30 мм), самый засушливый месяц года. для turbo pascal.

Program zadacha; var a: array [1..12] of integer; i, o, k, z, j: integer; s: real; begin writeln('vvedite kolichestvo osadkov'); for i: =1 to 12 do read(a[i]); o: =0; for i: =1 to 12 do o: =o+a[i]; writeln('obshee kolichestvo osadkov=',o); s: =o/12; writeln('srednee kolichestvo=',s: 3: 2); k: =0; for i: =1 to 12 do if a[i]< 30 then k: =k+1; writeln('kolichestvo zasushlivih=',k); j: =30; for i: =1 to 12 do if a[i] begin j: =[i]; z: =i; end; writeln('samiy zasusliviy mesyac=',z); readln; 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 а вообще, каждое нужно писать отдельно