Массив содержит сведения о количестве осадков выпавших за каждый из 12 месяцев. найти: а) общее количество осадков за год; б)количество засушливых месяцев (< 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('Общее количество осадков за год: ', l,' Количество засушливых месяцев: ',o); end.
PROGRAM A22; const max = 42; var vt:array[1..max]of byte; i,n:byte; x:integer;
BEGIN n := max; writeln('Массив из n элементов будет задан случайными числами на интервале [0,3].'); readln(n); write('Введите число которое будет добавлено к каждому элементу.'); readln(x);
writeln('Начальный Массив' ); randomize; for i:=1 to n do begin vt[i]:=random(1,3); write(vt[i], ' '); end; writeln(' ');
writeln('Массив c результатом' ); for i:=1 to n do begin write(vt[i]+x, ' '); end; writeln(' ');
В программе использованы команды эмулятора машины Поста К.Полякова: > N переместить каретку вправо на 1 ячейку и перейти к строке с номером N < N переместить каретку влево на 1 ячейку и перейти к строке с номером N 0 N записать в текущую ячейку «0» (стереть метку) и перейти к строке с номером N 1 N записать в текущую ячейку «1» (поставить метку) и перейти к строке с номером N ? N, M если текущая ячейка содержит «0» (не отмечена), то перейти к строке с номером N, иначе перейти к строке M . остановить программу
![Массив из n элементов задан случайными числами на интервале [0,3] прибавьте к каждому элементу число](/tpl/images/0850/9584/b1a32.jpg)
Получите заспишитесь)
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('Общее количество осадков за год: ', l,' Количество засушливых месяцев: ',o);
end.