М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
pandokokos22jopar
pandokokos22jopar
02.05.2021 21:08 •  Информатика

Написать программу на pyton 3
несколько дней подряд метеоролог измеряет температуру воздуха в своём городе. ваша программа считывает измеренные им значения и выводит среднее значение температуры за время измерений. чтобы обозначить конец ввода данных, вводится значение, меньшее -300 (реальная температура не может быть ниже -273.15).

при проведении вычислений с действительными числами ответ может незначительно отличаться от правильного из-за погрешностей округления; это не повлияет на проверку решения.

формат ввода
несколько (не меньше одного) действительных чисел на отдельных строках — температура воздуха в разные дни.
действительное число, меньшее -300.

формат вывода
одно действительное число — средняя температура воздуха.

пример
ввод вывод
22.3 23.7
24.1
24.0
24.4
-301

👇
Открыть все ответы
Ответ:
nnfilinaaaa
nnfilinaaaa
02.05.2021
1.const  N=10;
type Vector = array [1..N] of integer;
var B: vector;   
     max :integer;
procedure IntVector(N: integer; var a: vector);
begin 
 for var i := 1 to N do  a[i] := random(100);
end;
procedure OutVector(N: integer; a: vector);
begin  for var i := 1 to N do  
begin      write(a[i]:5);
end;
end;
procedure Srav (a:vector; N,g:integer);
begin
g := a[1];
for var i:=1 to N do
if (g < a[i]) then g:=a[i];
writeln (g);
end;
Begin 
IntVector(N, B); 
writeln; 
OutVector(N, B ); 
writeln;  
Srav(B,N, max); 
writeln;
End.
2. const  N = 10;
type  Vector = array [1..N] of integer;
var  B: vector; 
     r,v : real; 
procedure IntVector(N: integer; var a: vector);
begin 
for var i := 1 to N do    
a[i] := random(20);
end;
procedure OutVector(N: integer; a: vector);
begin 
 for var i := 1 to N do  
begin   
write(a[i]:5); 
 end;
end;
function srednee(a: vector; N: integer): real;
begin 
for var i := 1 to N do   begin   result := (result + a[i]);  
end; 
end;
function kolvo(a: vector; g: real): real;
begin 
for var i := 1 to N do
   if (a[i] < (srednee(a, N)/10)) then result := result + 1;
end;
begin 
IntVector(N, B);  writeln; 
OutVector(N, B ); 
writeln; 
writeln ((srednee(B, N)/10):5:3);   r := kolvo(B, v); 
writeln(r);
end.
4,5(18 оценок)
Ответ:
nikita540601
nikita540601
02.05.2021
Набрать воды в 3 литровый кувшин.
Вылить содержимое в 8 литровый кувшин
набрать воды в 3 литровый кувшин.
Вылить содержимое в 8 литровый кувшин
набрать воды в 3 литровый кувшин
Вылить содержимое в 8 литровый кувшин, оставив один литр в 3 литровом кувшине.
Опустошить 8 литровый кувшин
Вылить содержимое 3 литрового кувшина в 8 литровый
Набрать воды в 3 литровый кувшин
Вылить содержимое в 8 литровый кувшин
Набрать воды в 3 литровый кувшин
Вылить содержимое в 8 литровый кувшин
Вот весь алгоритм.
Поблагодари, если
4,6(83 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ