Паскаль, массивы, помогитеее плз

[ProPaL]

Ребят, срочно нужна ваша помощь, не знаю как сделать задание... Кто можен напишите плззззз очень надоо!!!
Задание:
Дан массив y1.....y10 найти Х.
Безымянный.jpg

[_Dmitry]

Задачка не сложная, попробуйте написать сами, не забавы ради, а пользы для. Мы же поможем, если что.

[ProPaL]

program mass;
Var
 Y:array[1..10] of real;
 i:integer;
 x,sum,b:real
begin
 writeln('VVedite mass. Y')'
 for i:=1 to 10 do
  begin
  write('Y[',i,'] = ');
  readln(y[i]);
  end;
  sum:=0
 for i:=1 to 10 do begin
 x:=sum*b*y[i];
 end;

как дальше не знаю...

[kommunist]

Здесь i это индекс массива или что?

[ProPaL]

ну да вроде

[kommunist]

Вроде бы так

program vec;
uses crt;
const
     n = 10;
type vector = array [1..n] of integer;
var
    y:vector;
    i:integer;
    x:integer;
    b:integer;
begin
    clrscr;
    randomize;
    for i:= 1 to n do
begin
 y[i] := random(10);
 write(y[i],' ');
end;
 writeln;
 writeln;
 x:=0;
 if i = 9
 then
 b:=i
 else if i = 2
 then
 b:= y[1] + y[2]
 else
 b:=y[i];
 for i:= 1 to n do
begin
 x:= b * y[i];
end;
 write(x);
 readln;
end.

[ProPaL]

непонимаю, почему так?

const   
     n = 10;   
type vector = array [1..n] of integer;

[kommunist]

Что именно тебе непонятно обьявлен тип массив и переменная этого типа
а в разделе констант количество элементов массива.

[Dart]

а подскажите, как изменить этот код чтобы мы считывали елементы массива из файла 1.txt и вписывали в 2.txt и массив и сумму....

[ProPaL]

ясно, Спс большое!