Регистрация
арсений213
30.04.2023 01:25
Информатика
Есть ответ 👍

Создать массив из 31 элемента с температурой воздуха на каждый день . в первую ячейку заносится температура воздуха первого дня . во вторую ячейку температур унуорого дня и так дапее вьвести максимальную и минимальную , и среднюю температуру в месяце

163
212
Посмотреть ответы 2

Ответы на вопрос:

diana2005n
diana2005n
4,4(37 оценок)

1)

const n=31;

var a: array[1..n] of integer;

i,s,k: integer;  

begin

randomize;

for i: =1 to n do

  begin

  a[i]: =random(41)-20;

  write(a[i]: 4);

  end;

writeln;

s: =0; k: =0;

for i: =1 to n do

  if a[i]> 0 then begin s: =s+a[i]; k: =k+1; end;

writeln('средняя температура дней с оттепелью = ',s/k: 4: 2);

end.

пример:

  -7   4 17-13 20 -8 12 11 15-17 -5 15-17 -4 14-12   3-20   6 -8-14 -8 18 17   6 -9 16 10 17 20-15

средняя температура дней с оттепелью = 13.00

2)

const m=10;

var a: array[1..m] of integer;

i,s: integer;  

begin

randomize;

for i: =1 to m do

  begin

  a[i]: =random(21);

  write(a[i]: 4);

  end;

writeln;

s: =0;

for i: =1 to m do 

  if i mod 2 = 1 then s: =s+a[i];

writeln('s = ',s);

for i: =1 to m do 

  if i mod 2 = 0 then a[i]: =s;

for i: =1 to m do write(a[i]: 4);

writeln;

end.

пример:

  14   9   0   8   6   2   2   16   1   16

s = 23

  14   23   0   23   6   23   2   23   1   23

подробнее - на -

Lenika2len
Lenika2len
4,8(32 оценок)
Var n, amount, max_digit, copy_of_n: integer; begin       read(n);       copy_of_n : = n;       amount : = 0;       max_digit : = copy_of_n mod 10;       while copy_of_n < > 0 do       begin                                   {находим наибольшую цифру в числе}           if max_digit < copy_of_n mod 10           then               max_digit : = copy_of_n mod 10;           copy_of_n : = copy_of_n div 10;       end;       copy_of_n : = n;       while copy_of_n < > 0 do         {считаем количество таких цифр}       begin           if copy_of_n mod 10 = max_digit           then               amount : = amount + 1;           copy_of_n : = copy_of_n div 10;       end;       writeln(amount); end.

Популярно: Информатика