Var m,n,k,i: integer; a: array[1..1000] of integer; begin write('write size array: '); readln(n); write('write m: '); readln(m); k: =0; for i: =1 to n do begin read(a[i]); if a[i]> m then inc(k); end; writeln(k); readln; readln end.
Спасибо
Ответ дал: Гость
n = 64 - 32 = 32
i = log₂ 32 = 5 бит
количество вопросов, которые нужно задать равно 5
Ответ дал: Гость
program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin readln(a[i]); if a[i]< 0 then l: =l+a[i]; if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.
Популярные вопросы