Ответы на вопрос:
1)var t: array [1..12] of real;
i: integer;
begin
for i: =1 to 12 do readln(t[i]);
writeln('средняя температура зимних месяцев: '+t[1]+t[2])/3): 0: 3);
writeln('средняя температура весенних месяцев: '+t[4]+t[5])/3): 0: 3);
writeln('средняя температура летних месяцев: '+t[7]+t[8])/3): 0: 3);
writeln('средняя температура осенних месяцев: '+t[10]+t[11])/3): 0: 3);
end.
2)var t: array[1..10] of integer;
c: array[1..10] of real;
i: integer;
s,s1: real;
begin
s: =0;
for i: =1 to 10 do begin writeln('введите количество товара'); readln(t[i]) ; end;
for i: =1 to 10 do begin writeln('введите цену товара'); readln(c[i]); end;
for i: =1 to 10 do begin s1: =t[i]*c[i];
s: =s+s1;
end;
writeln('общая стоимость всех покупок: ',s: 0: 3);
end.
Популярно: Информатика
-
annzhoravel46122.10.2022 13:22
-
znaniyasveta25.06.2021 23:27
-
Самолеееет55521.07.2022 07:09
-
VerinaNice10.04.2022 16:04
-
AilaRait17.04.2021 00:34
-
Marieta11116.07.2022 08:08
-
roman1978197524.05.2022 11:09
-
Аняняняняняняняяня11.03.2022 08:33
-
katenok170602.05.2020 13:24
-
BinoKLI13.05.2020 07:50