Почему не выводит : среднее и сумму? var a :array[1..5]of integer;
ssum,v1,t1,v2,t2,v3,t3,v4,t4,v5,t5,n: integer;
sred:real;
begin
write(' введите количество участков n=');
readln(n);
write(' введите скрость м/с v1 =');
readln(v1);
write('введите время t1=');
readln(t1);
write(' введите скрость м/с v2 =');
readln(v2);
write('введите время t2=');
readln(t2); write(' введите скрость м/с v3 =');
readln(v3);
write('введите время t3=');
readln(t3); write(' введите скрость м/с v4 =');
readln(v4);
write('введите время t4=');
readln(t4); write(' введите скрость м/с v5 =');
readln(v5);
write('введите время t5=');
readln(t5);
for var i:= 1 to 5 do
read(a[i]);
ssum:=0;
sred:=1;

for var i:= 1 to n do
begin
ssum:=(v1+v2+v3+v4+v5)*(t1+t2+t3+t4+t5);
sred:=ssum/n;
end;
writeln('сумма=',ssum);
writeln('среднее=',sred:2:1);

end.

ЯнаLove7    3   17.10.2021 23:47    0