1)вычислить сумму четных и нечетных элементов(также в массиве). 2)вычислить количество "0" в массиве. написать программу в pascal. p.s.: можно сделать одну из двух.

204

494

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

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

Tokuz

Информатика

4,4(9 оценок)

Program sum_nechet; var a: array [0..100] of integer; var b,i,c,k: integer; begin randomize; for i: =1 to 10 do begin a[i]: =random(10); writeln(a[i]); // это можно не писать, просто чтобы видеть числа в массиве, если интересно. end; c : = 0; b : = 0; for i: =1 to 10 do begin if a[i] mod 2 = 0 then b : = b + a[i] else c : = c+ a[i]; end; writeln('нечетных ' , c); writeln('четных ' , b); k: =0; for i: =1 to 10 do begin if a[i] = 0 then k: = k+1 end; writeln('нулей ' , k) end.

abiersack

Информатика

4,8(83 оценок)

Объем памяти, занимаемый картинкой равен = 16384 * 256 = 4194304 кол-во битов на один пиксель = 4194304 / 1024 / 512 = 8 кол-во цветов = 2 ^ 8 = 256 цветов