profile
Опубликовано 6 лет назад по предмету Информатика от magdalena2003

Введите с клавиатуры массив В, из 10 элементов целого типа, нумерация начинается с 1 и вывести все элементы массива увеличенные в 45 раз.

  1. Ответ
    Ответ дан samsonenko2002

    var

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

    b:array[1..10] of integer;

    i:integer;

    begin

    for i:=1 to 10 do

    begin

    read(b[i]);

    a[i]:=b[i]*45

    end;

    for i:=1 to 9 do

    write(a[i],' ');

    write(a[10])

    end.

Самые новые вопросы