Задание 5 Параграф 20 ГДЗ Семакин 9 класс (Информатика)
Решение #1
Рассмотрим вариант решения задания из учебника Семакин, Залогова 9 класс, Просвещение:
5. Составьте программы на Паскале по алгоритмам из заданий 3, 4 предыдущего параграфа. Выполните эти программы на компьютере.
program SredTemperature;
var
Tsred: array[1..12] of real;
TsrWi, TsrSp, TsrSu, TsrFu: real;
i: integer;
begin
for i := 1 to 12 do
begin
write('Tsred[', i, '] =');
readln(Tsred[i]);
end;
TsrWi := (Tsred[12] + Tsred[1] + Tsred[2]) / 3;
TsrSp := (Tsred[3] + Tsred[4] + Tsred[5]) / 3;
TsrSu := (Tsred[6] + Tsred[7] + Tsred[8]) / 3;
TsrAu := (Tsred[9] + Tsred[10] + Tsred[11]) / 3;
writeln('Средняя температура зимой >> ', TsrWi:2:2);
writeln('Средняя температура весной >> ', TsrSp:2:2);
writeln('Средняя температура летом >> ', TsrSu:2:2);
writeln('Средняя температура осенью >> ', TsrAu:2:2);
end.
program stoimost;
var
T: array[1..10] of integer;
C: array[1..10] of real;
s: real;
i: integer;
begin
writeln('Введи количество 10 товаров');
for i := 1 to 10 do
read(T[i]);
writeln('Введи через пробел стоимости товаров');
for i := 1 to 10 do
read(C[i]);
s := 0;
for i := 1 to 10 do
s := s + T[i] * C[i];
writeln('Стоимость покупки =', s:6:2, 'рублей')
end.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
