1. Найти номера элементов массива, значения которых кратны 4 или 6.
2. Дан одномерный массив Х1, Х2, …, Хn . Заменить каждый двухзначный элемент на вторую цифру в его записи.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
