Регистрация
pgvladp0dtcc
23.09.2020 18:36
Информатика
Есть ответ 👍

Данные о температуре воздуха за декаду хранятся в массиве. определить, сколько раз температура была выше средней за эту декаду.

197
287
Посмотреть ответы 2

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

Avmb
Avmb
4,8(24 оценок)
Var   a: array[1..10] of integer;   i, sum, count: integer;   average: real; begin   sum : = 0;   writeln('данные о температуре: ');   for i : = 1 to 10 do   begin     a[i] : = random(61) - 30;     sum : = sum + a[i];     write(a[i], ' ');   end;   writeln;   average : = sum / 10;   for i : = 1 to 10 do     if a[i] > average then inc(count);   writeln(count, '  раз(a)'); end.
lysia75
lysia75
4,5(100 оценок)

1)

\begin{array}{}\\A&B&A\lor B&(\overline{A\lor B})&(\overline{A\lor B}) \lor B\\0&0&0&1&1\\0&1&1&0&1\\1&0&1&0&0\\1&1&1&0&1\\\end{array}

2)

\begin{array}{}\\A&B&\overline{B}&A\lor \overline{B}&B \lor (A\lor \overline{B})\\0&0&1&1&1\\0&1&0&0&1\\1&0&1&1&1\\1&1&0&1&1\\\end{array}

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