В последовательности чисел выбрать все четные, подсчитав их количество и сумму

@Maestro1221 · Регистрация: 04.12.2014

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

В последовательности числе выбрать все четные,подсчитав их количество и сумму. Нечетные числа превратить в четные , умножив каждое на 2 .

P.S. раздел var тоже если не сложно , заранее спс)

@ighor · 05.12.2014, 19:53

Pascal

program chchcchc;
var a: array  [1..10000] of integer;
i, n, kol, sum :integer;
begin 
readln(n);
for i:=1 to n do begin
read(a[i]);
end;
kol:=0;
for i:=1 to n do begin
if ((a[i]) mod 2=0) then inc(kol) ;
end;
sum:=0;
for i:=1 to n do begin
if ((a[i]) mod 2=0)  then
sum:=sum+a[i];
end;
writeln('количество четных=',kol, '  сума четных=',sum );
for i:=1 to n do begin 
if ((a[i]) mod 2<>0) then a[i]:=a[i]*2;
write(a[i]:3);
end;
end.

@Maestro1221 0 / 0 / 0 Регистрация: 04.12.2014 Сообщений: 11
		1
	В последовательности чисел выбрать все четные, подсчитав их количество и сумму 05.12.2014, 18:50. Показов 2439. Ответов 1 Метки нет (Все метки) В последовательности числе выбрать все четные,подсчитав их количество и сумму. Нечетные числа превратить в четные , умножив каждое на 2 . P.S. раздел var тоже если не сложно , заранее спс) 0

	05.12.2014, 19:53

В последовательности чисел выбрать все четные, подсчитав их количество и сумму

Решение