Массив содержит сведения о количестве осадков выпавших за каждый из 12 месяцев. Найти: а) общее количество осадков за год; б)количество засушливых
10-11 класс
|
месяцев (<30 мм).
Получите заспишитесь)
const n=12;
var i,k,l,o:integer; a:array [1..100] of integer;
begin
writeln('Введите кол-во осадков: ');
for i:=1 to n do begin
write('За ', i,'-й месяц: ');
readln(a[i]); l:=l+a[i];
if a[i]<30 then inc(o);
end;
write('Общее количество осадков за год
Другие вопросы из категории
Известно, что среди девяти монет есть одна фальшивая, вес которой
меньше веса других настоящих монет. Какое минимальное количество взвешиваний
необходимо для определения фальшивой монеты?
цветное изображение размера А2 (60х42 см). разрешающая способность сканера 2400 dpi (точки на дюйм, 1 дюйм=2,5 см), глубина цвета - 16 бит.какой информационный объем будет иметь полученный графический файл? 3.определить время звучания звукового файла, который занимает на диске 36 мб. характеристики закодирования звука: стерео, глубина 24 бита, частота дискретизации 48 кГц.
Читайте также
а) Все четные элементы
б) Все элементы, оканчивающиеся нулем.
2. В массиве хранится информация о количестве осадков, выпавших каждый день января. Определить, в какие числа месяца осадков не было.
а) Все четные элементы
б) Все элементы, оканчивающиеся нулем.
2. В массиве хранится информация о количестве осадков, выпавших каждый день января. Определить, в какие числа месяца осадков не было.
Паскаль.
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
число, образованное первыми двумя цифрами, будучи умноженным на среднюю цифру, даёт число, образованное последними двумя цифрами.