Найти разницу между суммами четных и нечетных чисел масива

@Maksim_kooo · Регистрация: 17.12.2018

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

Помогите!!!
Ввести с клавиатуры 1, 2 или 3.
1 - цикл с параметром
2 - цикл с предусловием
3 - цикл из постусловием
Со следующей строки ввести с клавиатуры натуральное число n и через пробел n целых чисел.
Найти разницу между суммами четных и нечетных чисел.

@xtro · 18.12.2018, 09:16

Pascal

procedure Rcalc(var sp,sm:longint);
var
  a:integer;
begin
  read(a);
  if odd(a) then sp:=sp+a else sm:=sm+a;
end;
  
var 
  i,n,a:integer;
  sp,sm:longint;
begin
  repeat 
    writeln('1 - цикл с параметром');
    writeln('2 - цикл с предусловием');
    writeln('3 - цикл из постусловием');
    write('ваш выдор (цифра):');readln(i);
  until i in [1..3];
  write('n=');readln(n);
  case i of 
    1:for n:=1 to n do Rcalc(sp,sm);
    2:while n>0 do begin
        Rcalc(sp,sm);
        n:=n-1;
      end;
    3:repeat
        Rcalc(sp,sm);
        n:=n-1;
      until n=0;
    end;
    writeln('Ответ:',sp-sm:0);
 end.

@bormant · 18.12.2018, 12:06

xtro,
1) зачем 2 суммы? Достаточно одной разницы:

Pascal

procedure NextNum(var d: Integer);
var t: Integer;
begin
  Read(t); Inc(d,1-2*Ord(Odd(t));
end;

@xtro · 18.12.2018, 12:15

bormant, согласен, только наверное вместо 1 должно t быть

Добавлено через 6 минут
т.е. Inc(d,t*(1-2*Ord(Odd(t)));

@bormant · 18.12.2018, 13:49

xtro,
угу, иначе это вышла разница в количестве нечетных и четных, а в условии разница сумм.

Добавлено через 1 час 26 минут
Но можно (а для некоторых диалектов и нужно) написать как обычно:

Pascal

1	Read(t); if Odd(t) then Dec(d,t) else Inc(d,t);

Найти разницу между суммами четных и нечетных чисел масива

Решение

Решение

@Maksim_kooo 0 / 0 / 0 Регистрация: 17.12.2018 Сообщений: 2
		1
	Найти разницу между суммами четных и нечетных чисел масива 17.12.2018, 13:21. Показов 2534. Ответов 4 Метки нет (Все метки) Помогите!!! Ввести с клавиатуры 1, 2 или 3. 1 - цикл с параметром 2 - цикл с предусловием 3 - цикл из постусловием Со следующей строки ввести с клавиатуры натуральное число n и через пробел n целых чисел. Найти разницу между суммами четных и нечетных чисел. 0

@xtro 233 / 32 / 19 Регистрация: 10.06.2016 Сообщений: 123
	18.12.2018, 12:15	4
	bormant, согласен, только наверное вместо 1 должно t быть Добавлено через 6 минут т.е. Inc(d,t(1-2Ord(Odd(t))); 1

	18.12.2018, 13:49