Предмет: Информатика, автор: Emily009

Написать программу на языке Pascal. В массиве хранятся сведения о количестве осадков, выпавших за каждый день апреля. Определить общее количество осадков, выпавших за каждую декаду этого месяца.

Ответы

Автор ответа: ЯковПервый
1

// Считал, что сведения о количестве осадков -- это целые числа

// Заполнил массив, хранящий сведения об осадках, псевдорандомными числами от 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.

Похожие вопросы
Предмет: Русский язык, автор: 11raffazym