7-1r
Для последовательности целых чисел найти сумму и количество отрицательных элементов
Программа читает данные из файла до конца файла – строка 10. Прочитав очередное данное – строка 12, в программе проверяется, не отрицательно ли прочитанное число. Если оно отрицательно – строка 13, то искомая сумма увеличивается на прочитанное число и количество отрицательных элементов увеличивается на 1 – строка 14. В строке 17 выводится ответ.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Program A7_01; Var f:text; a,s,k:integer; BEGIN assign(f,'in7_01.txt'); reset(f); if IoResult<>0 then begin writeln('Net faila'); exit; end; s:=0;
k:=0; while(not EOF(f)) do begin readln(f,a); if (a<0) then begin s:=s+a; INC(k); end; end; close(f); writeln(s,' ',k); readln; END. |
// Program A7_01; #include <iostream> #include <fstream>
using namespace std;
int main() { ifstream f; int a,s=0,k=0; f.open("in7_01.txt"); if (!f) { cout<<"net
faila\n"; return -1;} while(f>>a) { if(a<0) {s=s+a; k++;} } f.close(); cout<<s<<"
"<<k<<endl; return 0; } |