Задать вопрос
9 декабря, 15:26

Помогите с иформатикой в системе Pascal

Составить программу

вывода на экран всех

элементов массива,

оканчивающихся

нулем.

+1
Ответы (1)
  1. 9 декабря, 16:51
    0
    Const

    n=15;

    var

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

    i:integer;

    begin

    Randomize;

    Writeln ('Исходный массив');

    for i:=1 to n do begin

    a[i]:=Random (35) + 1;

    Write (a[i],' ')

    end;

    Writeln;

    Write ('Элементы, оканчивающиеся нулем: ');

    for i:=1 to n do

    if a[i] mod 10=0 then Write (a[i],' ')

    end.

    Пример

    Исходный массив

    8 28 35 25 35 1 20 14 30 4 2 15 20 2 13

    Элементы, оканчивающиеся нулем: 20 30 20
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Помогите с иформатикой в системе Pascal Составить программу вывода на экран всех элементов массива, оканчивающихся нулем. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы