Повезло опять Егорке, У реки сидит не зря: 101 карась в ведерке И 100 штук пескаря. Посчитайте-ка улов У кого ответ готов? ответ представить в 10 с/с (системе счисления)
Const nn = 100; { максимальное количество элементов } var a:array[1..nn] of integer; i,n,k,kn,kp,ko,ke: integer; begin Writeln('Введите количество элементов в массиве (n<=100): '); Readln(n); Writeln('Введите элементы массива'); kn:=0; kp:=0; ko:=0; ke:=0; for i := 1 to n do begin Read(k); a[i]:=k; if k>0 then Inc(kp) else if k<0 then Inc(kn); if (k mod 2)=0 then Inc(ke) else Inc(ko) end; Writeln('Положительных элементов ',kp,', отрицательных ',kn); Writeln('четных элементов ',ke,', нечетных ',ko); end.
Тестовое решение: Введите количество элементов в массиве (n<=100): 13 Введите элементы массива 16 -5 8 21 0 -5 13 32 7 11 -4 2 -5 Положительных элементов 8, отрицательных 4 четных элементов 6, нечетных 7
Числа вводятся пользователем. Прикрепил скрин работы программы, вот сама программа:
var a:array[1..999]of integer; i,n:integer; begin write ('Введите кол-во чисел: '); readln (n); for i:=1 to n do begin write ('Введите ',i,' число: '); readln (a[i]); end; WRITELN; write ('Числа введённые пользователем: '); for i:=1 to n do write (a[i],' '); WRITELN; WRITELN; write ('Положительные: '); for i:=1 to n do begin if a[i]>0 then write (a[i],' '); end; WRITELN; write ('Отрицательные: '); for i:=1 to n do begin if a[i]<0 then write (a[i],' '); end; WRITELN; write ('Чётные: '); for i:=1 to n do begin if a[i] mod 2 = 0 then write (a[i],' '); end; WRITELN; write ('Нечётные: '); for i:=1 to n do begin if a[i] mod 2 <> 0 then write (a[i],' '); end; end.
9 рыбок
Объяснение:
Предполагаю что условие дано в двоичной системе счисления. Тогда:
101₂= (2²*1) + (2¹*0) + (2⁰*1) = 4+0+1=5₁₀ карасей
100₂ = (2²*1) + (2¹*0) + (2⁰*0) = 4₁₀ пескарей
Всего поймано 5+4=9₁₀ рыбок