Работа с процедурами

@Luxmunx · Регистрация: 05.11.2012

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

Доброй ночи. У меня вот такая ошибка

Pascal

var
M,x,s,i:integer;
procedure E(x:integer; var s1:real);
begin
s:=s+x;
end;
 
begin
for i:=1 to M do begin
readln(x);
E(x,s);
end;
writeln(s);end.
 
 
//Написать программу подсчета суммы М введенных с клавиатуры чисел.

Помогите понять, пожалуйста, почему неверно?

@ermolay · 29.01.2013, 07:06

Pascal

var
  M, x, i: integer;
  s: real; // в процедуре вызов типа real, хотя можно было везде integer поставить
 
procedure E(x: integer; var s1: real);
begin
  s := s + x;
end;
 
begin
  write('Введите M: ');
  readln(M);
  s:=0; //иногда программа без спросу ставит непредсказуемое число
  for i := 1 to M do 
  begin
    write('Введите ',i,'-е число: '); // так оно будет понятнее пользователю, что от него ждут
    readln(x);
    E(x, s);
  end;
  writeln(s);
end.

	29.01.2013, 07:06