Вычислите значение выражения AD в 16-ой с.с. минус 251 в 8-ой с.с.. ответ запишите в десятичной системе счисления (т.е. все перевести в 10-ую с.с.)

266

307

Посмотреть ответы 1

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

Ринат2006

Информатика

4,7(30 оценок)

Var a: array[1..20] of integer; i,p,n: integer; begin p: =0; n: =0; write ('массив: '); for i: =1 to 20 do begin a[i]: =random(101)-50; write (a[i],' '); end; for i: =1 to 20 do if a[i]> 0 then p: =p+1; for i: =1 to 20 do if a[i] mod 2 < > 0 then n: =n+a[i]; writeln; write ('кол-во положительный элементов = ',p); writeln; write ('сумма нечётных элементов = ',n); end.