Есть ответ 👍

Напишите программу,которая в последовательности целых чисел определяет 1.количество четных отрицательных чисел 2.среднее арифметическое нечётных чисел программа получает на вход целые числа, количество введёных чисел неизвестно,последовательность чисел заканчивается числом 0(0- признак окончания ввода,не входит в последовательность.

197
469
Посмотреть ответы 3

Ответы на вопрос:


// pascalabc.net 3.2, сборка 1383 от 09.02.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readseqintegerwhile(i-> i< > 0).toarray;   writeln('четных отрицательных ',a.where(i-> (i< 0) and i.iseven).count,           ', ср.арифм. нечетных ',a.where(i-> i.isodd).average: 0: 3) end. пример 3 -4 2 -5 6 -1 7 -2 0 четных отрицательных 2, ср.арифм. нечетных 1.000

Var a,k1,k2,s: integer; begin writeln('вводите целые числа. конец ввода - 0'); k1: =0; k2: =0; s: =0; readln(a); while a< > 0 do   begin   if (a mod 2 = 0)and(a< 0) then k1: =k1+1;   if a mod 2 < > 0 then begin k2: =k2+1; s: =s+a; end;   readln(a);   end; writeln('количество четных отрицательных чисел = ',k1); if k2> 0   then writeln('среднее арифметическое нечётных чисел = ',s/k2)   else writeln('в последовательности нет нечётных чисел'); end. пример: вводите целые числа. конец ввода - 0 18 -45 10 -62 70 0 количество четных отрицательных чисел = 1 среднее арифметическое нечётных чисел = -45
MDL123
4,6(63 оценок)

№1 #include < iostream> using namespace std; int main () { int a,b; cin > > a > > b; if (a< b) cout < < a < < endl; else if (a==b) cout < < "a=b" < < endl; else cout < < b < < endl; system ("pause"); return 0; } №2 #include < iostream> using namespace std; int main () { char ch1,ch2; int i1,i2; cin > > ch1 > > ch2; i1=ch1; i2=ch2; if (i1< =i2) cout < < ch1 < < ' ' < < ch2 < < endl; else cout < < ch2 < < ' ' < < ch1 < < endl; system ("pause"); return 0; } №3 #include < iostream> using namespace std; int main () { float p,q; cout < < "p="; cin > > p; cout < < "q="; cin > > q; cout < < p-2*q < < endl; system ("pause"); return 0; }

Популярно: Информатика