Определить и вывести на экран сумму четных и сумму нечетных элементов

@Дашуля_18 · Регистрация: 25.03.2012

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

создать массив, содержащий 8 целых чисел. Определить и вывести на экран сумму четных и сумму нечетных элементов

@Ev[G]eN · 15.04.2012, 11:34

Pascal

const
  n = 8;
var
  Arr: Array[1..n] of Integer;
  SummaNotOdd, SummaOdd: Integer;
  i: Byte;
begin
  Randomize;
  writeln('Массив: ');
  for i:=1 to n do
  begin
    Arr[i]:=Random(50);
    write(Arr[i], ' ');
    if odd(Arr[i]) then Inc(SummaOdd, Arr[i])
      else Inc(SummaNotOdd, Arr[i]);
  end;
  writeln;
  writeln('Сумма нечетных: ', SummaOdd);
  writeln('Сумма четных: ', SummaNotOdd);
end.

@Puporev · 15.04.2012, 11:37

Pascal

const n=8;
var a:array[1..n] of integer;
    i,ch,nc:integer;
begin
writeln('Введите ',n,' целых чисел');
ch:=0;
nc:=0;
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
  if a[i] mod 2=0 then ch:=ch+1
  else nc:=nc+1;
 end;
writeln('Полученный массив');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Кол. четных=',ch);
write('Кол. нечетных=',nc);
end.

Добавлено через 36 секунд
На выбор....

@Дашуля_18 0 / 0 / 1 Регистрация: 25.03.2012 Сообщений: 28
		1
	Определить и вывести на экран сумму четных и сумму нечетных элементов 15.04.2012, 11:04. Показов 2834. Ответов 2 Метки нет (Все метки) создать массив, содержащий 8 целых чисел. Определить и вывести на экран сумму четных и сумму нечетных элементов 0

	15.04.2012, 11:37

Определить и вывести на экран сумму четных и сумму нечетных элементов

Решение