Question

Переделать программу под массив t1,t2,t3 Pascal.ABC 40 баллов

program i;

var a,s,v,t1,t2,t3,tc: real;

begin

writeln('Введите t1');

readln(t1);

writeln('Введите t2');

readln(t2);

writeln('Введите t3');

readln(t3);

WriteLn('Введите s');

Read(s);

tc:=((t1+t2+t3)/3);

writeln('tc=',tc);

a:=(2*s)/(tc*tc);

WriteLn('a=',a);

v:=(a*tc);

WriteLn('v=',v)

end.

Answer 1

Ответ:

program i;

var a,s,v,tc: real;

j:integer;

t:array[1..3] of real;

begin

tc:=0;

for j:=1 to 3 do

begin

writeln('Введите t',j);

readln(t[j]);

tc:=tc+t[j]

end;

writeln('Введите s');

read(s);

tc:=tc/3;

writeln('tc=',tc);

a:=(2*s)/(tc*tc);

writeln('a=',a);

v:=(a*tc);

writeln('v=',v)

end.