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.