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

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

Question

Информатика

Тая

20 июня, 11:01

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.