Question

Дан целочисленный одномерный массив. Найти номера элементов массива, значения которых кратны 4 или 6. В паскале. как можно проще.​

Answer 1

program mas_krat_4_or_6;

const n=10;

var

a:array[1..n] of integer;

i:integer;

begin

for i:=1 to n do

a[i]:=random(101);

for i:=1 to n do

write(a[i],' ');

writeln;

for i:=1 to n do

if (a[i]mod 4 =0)or(a[i]mod 6 =0)

then

write(i,' ');

readln;

end.