Дан массив целых чисел. Найти сумму элементов массива,которые заканчиваются на 5.

@Настён4ик · Регистрация: 09.12.2010

ПОМОГИТЕ пож....
Дан массив целых чисел. Найти сумму элементов массива,которые заканчиваются на 5.

@SuPeR XaKer · 09.12.2010, 20:55

Ну хвались наработками.

@Настён4ик · 09.12.2010, 20:58 **[ТС]**

Сообщение от SuPeR XaKer

Ну хвались наработками.

нечем хвалиться

@SuPeR XaKer · 09.12.2010, 21:02

Pascal

Uses
 CRT;
Const
 nmax=100;
var
 l,i,n,kol:integer;
 x:array[1..nmax] of integer;
 sum:real;
begin
repeat
 write('Vvedi n: ');
 readln(n);
until n in [1..nmax];
kol:=0;
randomize;
for i:=1 to n do
begin
 x[i]:=random(40)-15;
 write(x[i]:3);
 l:=x[i] mod 10;
 if (l=5) or (l=-5) then
 begin
  inc(kol);
  sum:=sum+x[i]
 end
end;
writeln;
if kol<>0  then
 write('SUM:=',sum)
else
 write('Íåò òàêèõ ýëåìåíòîâ!!!');
end.

ладно держи.Проверь только

@Настён4ик · 09.12.2010, 21:04 **[ТС]**

это слишком круто,а попроще нельзя,а то мне училка не поверит,что это я сделала

@SuPeR XaKer · 09.12.2010, 21:07

Pascal

var
 l,i,n,kol:integer;
 x:array[1..100] of integer;
 sum:real;
begin
 write('Vvedi n: ');
 readln(n);
kol:=0;
sum:=0;
for i:=1 to n do
begin
 write('X[',i,']:=');
 readln(x[i]);
 l:=x[i] mod 10;
 if (l=5) or (l=-5) then
 begin
  kol:=kol+1;
  sum:=sum+x[i]
 end
end;
writeln;
write('SUM:=',sum)
end.

@Настён4ик · 09.12.2010, 21:10 **[ТС]**

спасибо ОГРОМНОЕ))))

@Настён4ик 0 / 0 / 0 Регистрация: 09.12.2010 Сообщений: 5
		1
	Дан массив целых чисел. Найти сумму элементов массива,которые заканчиваются на 5. 09.12.2010, 20:48. Показов 5123. Ответов 6 Метки нет (Все метки) ПОМОГИТЕ пож.... Дан массив целых чисел. Найти сумму элементов массива,которые заканчиваются на 5. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	09.12.2010, 20:55	2
	Ну хвались наработками. 0

@Настён4ик 0 / 0 / 0 Регистрация: 09.12.2010 Сообщений: 5
	09.12.2010, 20:58 [ТС]	3
	Сообщение от SuPeR XaKer Ну хвались наработками. нечем хвалиться 0

@Настён4ик 0 / 0 / 0 Регистрация: 09.12.2010 Сообщений: 5
	09.12.2010, 21:04 [ТС]	5
	это слишком круто,а попроще нельзя,а то мне училка не поверит,что это я сделала 0

@Настён4ик 0 / 0 / 0 Регистрация: 09.12.2010 Сообщений: 5
	09.12.2010, 21:10 [ТС]	7
	спасибо ОГРОМНОЕ)))) 0

Опции темы