Question

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

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.