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

171

485

Посмотреть ответы 2

Ответы на вопрос:

kdjdn25

Информатика

4,5(36 оценок)

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.

Feruzzz

Информатика

4,8(78 оценок)

5- потому что пять пальцев на руке10 - соответственно 10 пальцев на 2-х руках20 количество пальцев на руках и ногаха вот 12 - на одной руке 4 пальца (кроме большого), на каждом пальце по 3 фаланги. получаем 4*3=12