сам незнаю какой массив

[GIR8]

Народ помогите зделать прогу на pascale оч прошу, надо определённое кол-во раз вводить числа а потом эти числа сумировать, и чтоь это был массив, если непонятно поставил задачу пишите растолкую, помогить плиз)

[:=)]

А определенное кол-во раз это известное число или нет?

[whatever]

var
  i:integer;
  r,sum:real;
  m:array of real;
begin
  i:=0;
  setlength(m,0);
  readln(r);
  while r<>0 do
    begin
      setlength(m,length(m)+1);
      m[i]:=r;
      readln(r);
      inc(i)
    end;
  sum:=0;
  for i:=0 to high(m) do
    sum:=sum+m[i];
  writeln(sum);
end.

P.S. писал сразу на форум, не проверял. Ввод происходит до тех пор, пока вводимое число не равно 0

[GIR8]

Сообщение от :=)

А определенное кол-во раз это известное число или нет?

НЕт его вводиш

[GIR8]

QUOTE=whatever;993339]

var
  i:integer;
  r,sum:real;
  m:array of real;
begin
  i:=0;
  setlength(m,0);
  readln(r);
  while r<>0 do
    begin
      setlength(m,length(m)+1);
      m[i]:=r;
      readln(r);
      inc(i)
    end;
  sum:=0;
  for i:=0 to high(m) do
    sum:=sum+m[i];
  writeln(sum);
end.

P.S. писал сразу на форум, не проверял. Ввод происходит до тех пор, пока вводимое число не равно 0[/QUOTE]

Спасиб, но я сам догадался тож, тольк у меня попроще:



QUOTE=whatever;993339]

var
s,a:real;
i,d:integer;
begin
writeln('CИ');
writeln('количество полей'); read(d);
s:=0;
for i:=1 to d do begin
                 writeln('Напряжонность электрического поля'); readln(a);
                 s:=s+a;
                 end;
writeln ('Сумма напряжонности всех электрических полей  = ', s,'  вольтов на метр (В/м)');
end.
end.

[GIR8]

Посоветуйте пожалуйста функцыю чтоб была задержка выполнения команда, я вроде нашол такую только оно выдаёт что её несуществует)
delay(x)

[VIK_aka_TOR]

sleep(n);

где n - время в миллисекундах...

[GIR8]

const n = 2;
Var
ru, en: text;
rus: array[0..1,1..n] of integer;
eng: array[0..1,1..n] of integer;
i:integer;
s:integer;
d:char;
procedure rus_eng;
begin
readln(s);
for i:=1 to n do begin
                if s=rus[1,i] then writeln(eng[1,i]);
                { s:=rus[1,i];
                  s:=eng[1,i];  }
                 end;
writeln(eng[1,i]);
end;

procedure eng_rus;
begin
readln(s);
for i:=1 to n do begin
                 if s=eng[1,i] then writeln(rus[1,i]);
                 {s:=eng[1,i];
                  s:=rus[1,i];}
                 end;
writeln(eng[1,i]);
end;


Begin
assign(ru,'ru.txt'); reset(ru);
assign(en,'en.txt'); reset(en);
for i:=1 to n do begin
                 readln(ru,rus[1,i]);
                 readln(en,eng[1,i]);
                 end;

while (true) do begin
writeln('с руского на англ 1');
writeln('выход 0');
writeln('с англ на русск 2');
read(d);
if d='0' then break;
if d='1' then rus_eng;
if d='2' then eng_rus;
end;
end.

делалось как переводчик, но когда ввожу слова txt то выдоёт ТИПА ошибка ввода или както так помогите плиз, АААА над очень, помогите пожалуйста