Ответы на вопрос:
1) не понятно , в комментах допишу, как только пойму. 2)var t,c: array [1..10] of integer; i,sum: integer; begin for i: =1 to 10 do begin t[i]: =random(20+i); c[i]: =random(20000+i); end; for i: =1 to 10 do begin sum: =sum+t[i]*c[i]; end; for i: =1 to 10 do begin writeln('количество товара ',i,' вида ',t[i],' стоимость товара ',i,' вида ', c[i]); end; writeln('общая сумма ',sum); end. 3) мы опишем его так ves: array [1..31] of real; 4) var sum,x: real; n,i: integer; begin read(n); for i: =1 to n do begin read(x); sum: =sum+x; end; writeln(sum/n); end.
Популярно: Информатика
-
bayawb6529.09.2022 13:49
-
kalina1976200524.01.2022 22:49
-
ekaterinibytori30.05.2023 18:28
-
1285301.03.2021 19:06
-
Negativniy27.06.2021 05:08
-
Yalikhan24.05.2021 01:58
-
777kicigina26.10.2022 07:37
-
DENISIZ8V01.11.2021 10:14
-
АружанТопская23.08.2022 23:40
-
ДарийНикчёмный114.09.2021 17:42