Решить на массивы. дан массив из 10 случайных чисел. надо найти первое чётное число, убрать его, а на его место сдвинуть остальные числа массива. например, был дан массив [ 1, 3, 4, 9, 7, 3, 3, 1, 5,7], а должен он стать таким: [ 1, 3, 9, 7, 3, 3, 1, 5,7]

241

346

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

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

MrLinar

Информатика

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

Const n = 10; var a: array[1..n] of integer; i,c: integer; begin randomize; c: =0; for i: = n downto 1 do begin a[i]: =random(21)-10; if a[i] mod 2 = 0 then c: =i end; write('исходный массив: '); for i: = 1 to n do write(' ',a[i]); if c < > 0 then for i: = c to n-1 do a[i]: =a[i+1]; writeln; write('новый массив: '); for i: = 1 to n-1 do write(' ',a[i]) end.

Королева1986

Информатика

4,6(64 оценок)

1) всего есть 4 чётных цифры => мощность алфавита = 4, тогда, 4^4=256 2)количество вариантов = факториалу числа объектов, значит, 4! =24 3)program p1; var i,s: integer; begin for i: =40 downto 2 do s: =s+i-1; write(s); end.ответ: 780