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.
Const n=10; m=3; var a:array[1..n,1..m] of integer; i,j,s,k:integer; p:real; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(81)+20; write(a[i,j]:4); end; writeln; end; s:=0; for i:=1 to n do for j:=1 to m do s:=s+a[i,j]; p:=s/n*0.8; writeln('p = ',p:5:2); writeln('Зачислены:'); k:=0; for i:=1 to n do begin s:=0; for j:=1 to m do s:=s+a[i,j]; if s>=p then begin write(i,' '); k:=k+1; end; end; writeln; writeln('k = ',k); end.
2)
Объяснение:
Это служебные слова. Используются для разных контекстов и в разных случаях/ситуациях