Задача на массивы Опции

[Vladimir]

Помогите решить задачу. Она звучит так:

Код

var: x:array[1..100] of real;
      a:array[1..30] of 1..100;
      s:real;

Вычислить s - сумму тех элементов массива x, индексы которых совпадают со значениями элементов массива a (a[i]<>a[j] при i<>j ).

Сообщение отредактировано: volvo - 17.12.2004 14:54

[fms]

___ALex___, еще бы в плохом..


может я что то не так думаю, но по моему тут все не так сложно..

a:array [1..30] of 1..100;

это означает, что значения элементов массива а изменяются в диапазоне от 1 до 100 т.к. коэффициенты массива х нумеруются от 1 до 100.. вот и все.

хм.. а по твоему массив обязательно должен быть матрицей?!
а a[i]<>a[j] значит что элементы в массиве а не повторяются..
может я что то не так поняла, но по моему верно.

соответственно программа:

Код

Program hdkhj;
var x:array[1..100] of integer;
a:array[1..30] of 1..100;
s:real;
i,j:integer;
begin
for i:=1 to 30 do
read(a[i]);
for j:=1 to 100 do
read(x[j]);
s:=0;
for i:=1 to 30 do
for j:=1 to 100 do
if i=a[j] then
s:=s+x[i];

write('s: ',s);
end.

Сообщение отредактировано: volvo - 17.12.2004 14:55