Предмет: Информатика, автор: Save5

Помогите пожалуйста прошу вас

Приложения:

elenaklon: Какая-то схема сильно кривенькая. На какую задачу делалась?

Save5: дано N произвольных чисел найти сумму положительных чисел в одну перемену и сумму отрицательных чисел в другую

Save5: я не знаю так на доске было написано либо учительницы ошибку сделлаа

elenaklon: Согласно данной схеме x (число) вводиться 1 раз. Чтобы исправить надо от I:=I+1 вести к верхнему условию где I<=N.

Save5: а в итоге какая программа получится?

elenaklon: Числа (x) должны быть целыми или дробными?

Save5: цел

Ответы

Автор ответа: xDerOmmeNx

program s2; var n,x,s,k,s2:integer; begin write('Введите кол-во чисел: '); readln(n); writeln('Введите числа: '); s := 0; s2 :=0; for k := 1 to n do begin write(k,': '); readln(x); if (x > 0) and (x mod 2 = 0) then s := s + x; elseif (x < 0) and (x mod 2 =0) then s2 := s2 + x end; writeln('Cумма четных положительных = ',s); writeln('Cумма четных отрицательных = ',s2); readln end.

Save5: спс

Save5: а какие цифры вводить

Save5: там написано так

xDerOmmeNx: эм это код для компилятора как запустите он вам высветит что ввести

Save5: аа

xDerOmmeNx: точно не уверен, но по идее должно работать, проверить не могу компилятора под рукой нет

xDerOmmeNx: скачай Pasckal запусти и проверь

Save5: ок

Save5: а что такое pх mod

Save5: х*

Автор ответа: elenaklon

var n,i,s,p,x:integer;
begin
write('Введите количество чисел: ');
readln (n);
i:=1;
s:=0;
p:=0;
while i <= n do
begin
write('Введите число: ');
readln (x);
if x >= 0 then s:=s+x
else p:=p+x;
i:=i+1
end;
writeln ('Сумма положительных чисел S := ',s);
writeln ('Сумма отрицательных чисел P := ',p)
end.

Пример:
Введите количество чисел: 5
Введите чисело: 2
Введите чисело: -2
Введите чисело: 3
Введите чисело: -3
Введите чисело: 0
Cумма положительных чисел S := 5
Cумма отрицательных чисел P := -5

Если схема как на картинке

Приложения: