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

Помогите пожалуйста хотя бы с чем нибудь

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

    1.

    var

       d : array of integer := new integer[20];

       a : integer;

    begin

       d := arrRandom(20);

       a := d[0];

       for var i := 1 to d.Length-1 do if a > d[i] then a := d[i];

       writeln('массив d=', d);

       writeln('наименьший член массива: ', a);

    end.

    4.

    var

       d : array[1..20] of integer;

       

    begin

       for var i := 1 to 20 do d[i]:=i*2;

    end.

    1. Ответ
      Ответ дан LSM54
      Здравствуйте. Не могли бы вы помочь с заданием https://znanija.com/task/31694943
Самые новые вопросы