Question

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

Answer 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.

Answer 2

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

const
  n = 30; // количество дней в апреле
var
  a: array[1..n] of integer; // массив, хранящий данные об осадках
  i, s1, s2, s3: integer; // счетчик цикла и суммы осадков по декадам
begin
  // заполним массив случайными числами от 0 до 50
  randomize;
  for i := 1 to n do
    a[i] := random(51);
  // выведем массив на экран
  writeln('Количество осадков в апреле по дням:');
  for i := 1 to n do
    write(a[i]:3);
  writeln;
  // обнулим суммы осадков по декадам
  s1 := 0;
  s2 := 0;
  s3 := 0;
  // пройдем по массиву и суммируем осадки по декадам
  for i := 1 to n do
  begin
    if i <= 10 then // первая декада
      s1 := s1 + a[i];
    if (i > 10) and (i <= 20) then // вторая декада
      s2 := s2 + a[i];
    if i > 20 then // третья декада
      s3 := s3 + a[i];
  end;
  // выведем результаты на экран
  writeln('Общее количество осадков за первую декаду: ', s1);
  writeln('Общее количество осадков за вторую декаду: ', s2);
  writeln('Общее количество осадков за третью декаду: ', s3);
end.

Этот код взят с сайта [Киберфорум](https://www.cyberforum.ru/turbo-pascal/thread616500.html), где вы можете найти еще больше полезной информации по Pascal. Я надеюсь, что это поможет вам решить вашу задачу. Удачи!