Написать программу суммирования всех положительных и отрицательных элементов заданного файла

@Annet96 · Регистрация: 02.11.2014

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

Написать программу суммирования всех положительных и отрицательных элементов
заданного файла (файл содержит в каждой записи два числа разделенных пробелом).
Найти сумму двух первых и двух последних элементов заданного файла.

@ZX Spectrum-128 · 10.01.2015, 10:32

Annet96,

в каждой записи

и

два числа разделенных пробелом

противоречат друг другу.
Может быть, "в каждой строке"?
И файл текстовый?

@bormant · 10.01.2015, 13:27

Pascal

var
  a, b, s, s1, sn: Real;
begin
  Assign(input,'input.txt'); Reset(input);
  ReadLn(a,b); s1:=a+b; s:=s1;
  while not SeekEOF do begin
    ReadLn(a,b); sn:=a+b; s:=s+sn;
  end;
  WriteLn('S=',s,' S1=',s1,' Sn=',sn);
end.

Добавлено через 5 минут
Если суммы положительных и отрицательных должны быть раздельными, а не общей (что из условия явно не очень то и следует), то

Pascal

var
  a, b, sp, sm, s1, sn: Real;
begin
  Assign(input,'input.txt'); Reset(input);
  ReadLn(a,b); s1:=a+b;
  if a>0 then sp:=sp+a else sm:=sm+a;
  if b>0 then sp:=sp+b else sm:=sm+b;
  while not SeekEOF do begin
    ReadLn(a,b); sn:=a+b;
    if a>0 then sp:=sp+a else sm:=sm+a;
    if b>0 then sp:=sp+b else sm:=sm+b;
  end;
  WriteLn('S+ =',sp,' S- =',sm,' S1 =',s1,' Sn =',sn);
end.

@Annet96 0 / 0 / 0 Регистрация: 02.11.2014 Сообщений: 36
		1
	Написать программу суммирования всех положительных и отрицательных элементов заданного файла 09.01.2015, 16:15. Показов 1143. Ответов 2 Метки нет (Все метки) Написать программу суммирования всех положительных и отрицательных элементов заданного файла (файл содержит в каждой записи два числа разделенных пробелом). Найти сумму двух первых и двух последних элементов заданного файла. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	10.01.2015, 10:32	2
	Annet96, в каждой записи и два числа разделенных пробелом противоречат друг другу. Может быть, "в каждой строке"? И файл текстовый? 0

	10.01.2015, 13:27

Написать программу суммирования всех положительных и отрицательных элементов заданного файла

Решение