Написать программу в паскале по вычислению средний температуры за неделю.исходные данные вводятся с клавиатуры: понедельник 12 градусов вторник 10 среда 16 четверг 18 пятница 17 суббота 16 воскресенье 14
Все решения даны в системе программирования PascalABC.NET 3.2, сборка 1382 от 06.02.2017
Если программа не работает, обновите версию!
№1 begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); var im:=a.IndexMax; Writeln('Максимальный элемент номер ',im+1,' равен ',a[im]) end.
Пример n= 6 Вводите числа: 13 8 -15 0 16 -24 Максимальный элемент номер 5 равен 16
№2 begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); Sort(a,(x,y)->x>y); a.Println end.
Пример n= 5 Вводите числа: 5 -4 6 0 5 6 5 5 0 -4
№3 begin var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println; Sort(a,(x,y)->x>y); a.Println end.
Все решения даны в системе программирования PascalABC.NET 3.2, сборка 1382 от 06.02.2017
Если программа не работает, обновите версию!
№1 begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); var im:=a.IndexMax; Writeln('Максимальный элемент номер ',im+1,' равен ',a[im]) end.
Пример n= 6 Вводите числа: 13 8 -15 0 16 -24 Максимальный элемент номер 5 равен 16
№2 begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); Sort(a,(x,y)->x>y); a.Println end.
Пример n= 5 Вводите числа: 5 -4 6 0 5 6 5 5 0 -4
№3 begin var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println; Sort(a,(x,y)->x>y); a.Println end.
var
t: array [1..7] of real; //Массив температуры за неделю
s: real;
i: integer;
begin
s:= 0;
for i:= 1 to 7 do //Вводим температуру за каждый день
begin
writeln('Введите температура в ', i, ' день недели');
readln(t[i]);
s:= s + t[i];
end;
writeln('Средняя температуры за неделю: ', s / 7 : 0 : 5); {Выводим среднюю температуру за неделю с округлением до 5 знаков после запятой}
end.