Написать программу на языке Pascal. В массиве хранятся сведения о количестве осадков, выпавших за каждый день апреля. Определить общее количество осадков, выпавших за каждую декаду этого месяца.
Ответы
// Считал, что сведения о количестве осадков -- это целые числа
// Заполнил массив, хранящий сведения об осадках, псевдорандомными числами от 0 до 100 для удобства
// precipitations -- массив из 30 элементов (30 дней апреля), decades -- массив из 3 элементов (декада -- это 10 дней => имеем 3 декады), хранящий общее количество выпавших осадков за соответствующий промежуток времени
program April;
var
precipitations: array[1..30] of integer;
decades: array[1..3] of integer;
i, index, curPrec: integer;
begin
randomize;
index := 1;
for i := 1 to 30 do begin
curPrec := random(100);
precipitations[i] := curPrec;
decades[index] += curPrec;
if (i mod 10 = 0) then
index += 1;
writeln('precipitations[', i, '] = ', curPrec);
end;
writeln();
for i := 1 to 3 do
writeln('The number of precipitation in ', i, ' decade = ', decades[i]);
end.