Блог для маленьких школьников и их родителей
ШколаЛа

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

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

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

Pascal.

Ответов к вопросу: 1
  • japg3o
    10.12.2024 | 18:46

    Ответ:
    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.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.