var
T : array [1..10] of integer;
C : array [1..10] of real; {если цена не дробная, то можно C : array [1..10] of integer; и a:integer;}
i : integer; a : real;
begin
a:=0;
for i := 1 to 10 do
begin
readln(T);
readln(C);
end;
for i := 1 to 10 do
a := T*c + a;
writeln;
writeln(a);
end.
T : array [1..10] of integer;
C : array [1..10] of real; {если цена не дробная, то можно C : array [1..10] of integer; и a:integer;}
i : integer; a : real;
begin
a:=0;
for i := 1 to 10 do
begin
readln(T);
readln(C);
end;
for i := 1 to 10 do
a := T*c + a;
writeln;
writeln(a);
end.
Аня!
ОтветитьУдалитьВ твоей программе единственная ошибка: при выполнении любой операции над элементами массива нужно указывать индекс. Таким образом
вместо
readln(T);
readln(C);
end;
for i := 1 to 10 do
a := T*c + a;
нужно писать
readln(T[i]);
readln(C[i]);
end;
for i := 1 to 10 do
a := T[i]*c[i] + a;
Татьяна Геннадьевна