Регистрация
Kononovichlika
31.12.2020 09:17
Информатика
Есть ответ 👍

Найти сумму нечетных элементов и заменить их этой суммой. обычный pascal. одномерный массив.

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

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

anet1983
anet1983
4,4(47 оценок)

ответ: uses crt;

const n=8;

var a: array[1..n] of integer;

i,s: integer;

 

begin

clrscr;

 

for i: =1 to n do

a[i]: =random(10);

 

for i: =1 to n do

  write(a[i]: 4);

  writeln;

 

  s: =0;

  for i: =1 to n do

    if a[i] mod 2< > 0 then

      s: =s+a[i];

 

      write('symma = ',s);

 

readkey;

end.

объяснение:

Helluing
Helluing
4,6(24 оценок)

111.32.2.114

Объяснение:

Каждые блоки чисел, разделенные точкой, необходимо перевести в двоичный вид, после чего сделать побитовое И. После чего перевести числа обратно в десятичный вид.

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