Question

В течение апреля месяца производилось измерение температуры наружного воздуха с точностью до целого числа один раз за сутки. Результаты измерений решили занести в массив. Укажите конструкцию для объявления массива, которая наиболее соответствует поставленной цели
1) Var tarray[1..2, 1..30) of integer;
2) Var tarray[1..365] of integer;
3) Var tarray[1..30] of integer;
4) Var tarray[1..31] of integer;​

Answer 1

Ответ:

Объяснение:

const d = 31;

var

 a: array[1..d] of integer;

 i, count, mdl: integer;

begin

 for i := 1 to d do begin

   a[i] := random(31);

   write(a[i], ' ');

   mdl := mdl + a[i];

 end;

 writeln;

 writeln('Средняя температура: ', (mdl / d):0:2);

 for i := 1 to d do

   if(a[i] > mdl / d) then inc(count);

 writeln('Дни, в которые температура была выше средней: ', count);

end.