Найти сумму тех элементов массива, которые меньше заданного числа D

@Alexcey · Регистрация: 09.12.2010

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

В массиве чисел А1, А2, …АN найти сумму тех элементов, которые меньше заданного числа D. Подскажите, где ошибка:

Pascal

Program Zadanye5;
var
m: array[1..5]  of integer;
i,sum,s:integer;
d,r:real;
begin
write('enter d=');
read(d);
writeln('enter 5 chisel');
begin
for i:=1 to 5 do
readln(m[i]);
if m[i]<d then;
sum:=sum+m[i];
write('sum=',sum);
end;
readln;
end.

@SuPeR XaKer · 09.12.2010, 18:41

Pascal

var
m: array[1..5] of integer;
i,sum,s:integer;
d,r:real;
begin
write('enter d=');
read(d);
writeln('enter 5 chisel');
for i:=1 to 5 do
begin
readln(m[i]);
if m[i]<d then;
sum:=sum+m[i];
end;
write('sum=',sum);
readln;
end.

только

В массиве чисел А1, А2, …АN

вводите размерность n и это
for i:=1 to 5 do
изменить
на
for i:=1 to n do
и
m: array[1..100] of integer;

@Puporev · 09.12.2010, 18:43

Pascal

Program Zadanye5;
uses crt;
var
m: array[1..5]  of integer;
i,sum,s:integer;
d,r:real;
begin
write('enter d=');
read(d);
writeln('enter 5 chisel');
sum:=0;
for i:=1 to 5 do
 begin
  readln(m[i]);
  if m[i]<d then sum:=sum+m[i];
 end;
write('sum=',sum);
readln;
end.

@Alexcey · 09.12.2010, 18:52 **[ТС]**

Спасибо, что так быстро ответили. Но когда меняю 5 на n-выдает ошибку 42

@SuPeR XaKer · 09.12.2010, 19:03

Ну а в Var
её добавь
n:integer;

@Alexcey · 09.12.2010, 19:32 **[ТС]**

точно! это я тормоз. А еще подскажите:теперь сумму не считает, а выводит число наименьшее

Добавлено через 1 минуту
Все дошло! Спасибо всем за помощь!

@Alexcey 0 / 0 / 0 Регистрация: 09.12.2010 Сообщений: 5
	09.12.2010, 18:52 [ТС]	4
	Спасибо, что так быстро ответили. Но когда меняю 5 на n-выдает ошибку 42 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	09.12.2010, 19:03	5
	Ну а в Var её добавь n:integer; 0

@Alexcey 0 / 0 / 0 Регистрация: 09.12.2010 Сообщений: 5
	09.12.2010, 19:32 [ТС]	6
	точно! это я тормоз. А еще подскажите:теперь сумму не считает, а выводит число наименьшее Добавлено через 1 минуту Все дошло! Спасибо всем за помощь! 0

Опции темы

Найти сумму тех элементов массива, которые меньше заданного числа D

Решение