Question

Задн одномерный массив А. Требуется переписать элементы одномерного массива А кратные в 8 массив В, а если такие отсутствуют, то выдать соответствующее сообщение.
Pascal.

Answer 1

Ответ:

var a,b:array [1..10] of integer;

i,k:integer;

begin

write('Массив A: ');

for i:=1 to 10 do

begin

a[i]:=random(25)+1;

write(a[i]:5);

if a[i] mod 8 = 0 then

begin

k:=k+1;

b[k]:=a[i]

end

end;

writeln;

if k=0 then write('В массиве А нет элементов кратных 8 ')

else

begin

write('Массив B: ');

for i:=1 to k do write(b[i]:5);

end

end.

Answer 2

##

var n := ReadInteger('Число элементов в массиве:');

var a := ArrRandom(n, -99, 99);

a.Println;

var b := a.Where(t -> t.Divs(8)).ToArray;

if b.Length = 0 then Print('Элементы, кратные 8, отсутствуют')

else

begin

Print('Элементы, кратные 8:');

b.Print

end;