Задание 5 Параграф 20 ГДЗ Семакин 9 класс (Информатика)

Ниже вариант решения задания из учебника Семакин, Залогова 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(taskTsred[task, i, task] =task);

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(taskСредняя температура зимой > > task, TsrWi:2:2);

writeln(taskСредняя температура весной > > task, TsrSp:2:2);

writeln(taskСредняя температура летом > > task, TsrSu:2:2);

writeln(taskСредняя температура осенью > > task, 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(taskВведи количество 10 товаровtask);

for i := 1 to 10 do

read(T[i]);

writeln(taskВведи через пробел стоимости товаровtask);

for i := 1 to 10 do

read(C[i]);

s := 0;

for i := 1 to 10 do

s := s + T[i] * C[i];

writeln(taskСтоимость покупки =task, s:6:2, taskрублейtask)

end.