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.