1. Найти номера элементов массива, значения которых кратны 4 или 6.

2. Дан одномерный массив Х1, Х2, ..., Хn. Заменить каждый двухзначный элемент на вторую цифру в его записи.

Question

Информатика

Беатриса

13 февраля, 12:16

1. Найти номера элементов массива, значения которых кратны 4 или 6.

2. Дан одномерный массив Х1, Х2, ..., Хn. Заменить каждый двухзначный элемент на вторую цифру в его записи.

+4

Ответы (1)

Знаете ответ на вопрос?

Всеволод · Answer 1

Const n = 50; var s, i, j, z:integer; m:array[1 ... n] of integer; begin writeln ('Размер массива') ; s: = ReadInteger () ; for i:=1 to s do begin m[i] : = random (100) - 50; write (m[i]:4) ; end; writeln; for i:=1 to s do begin j : = m[i]mod 4; z : = m[i]mod 6; if (j = 0) or (z=0) then write (i:4) ; end; end.