ошибка в программном коде.

@sunrise7 · Регистрация: 23.11.2011

Author24 — интернет-сервис помощи студентам

Дано целое число N и набор из N положительных вещественных чисел. Вывести в том же порядке целые части всех чисел из данного набора (как вещественные числа с нулевой дробной частью), а также сумму всех целых частей.

Pascal

var
N,i:integer;
a:real;
begin
i:=0;
Writeln('Введите число N');
readln(N);
Writeln('Введите ',N,' вещественных чисел.');
While (ido
begin
Read(a);
Write(int(a),' ');
inc(i);
end;
end.

в 9 строчке помогите, пожалуйста

@[WRG] · 17.04.2012, 20:36

ну если уж вы используете цикл while, то

Pascal

while i <= n do
  begin
    //операторы
  end;

а вобще, зная точное количество интераций цикла принято делать через цикл for

Pascal

for i:=1 to n do
  begin
    //операторы
  end;

	17.04.2012, 20:36