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

Написать программу, которая заполняет два одномерных массива случайными числами. Получить третий массив, элементы которого равны произведению соответствующих элементов исходных массивов. Pascal ABC

  1. Ответ
    Ответ дан DonPedro80
    const
      n=15; { длина массива }
    type
      tm=array[1..n] of integer;
    var
      i:byte;
      a,b,c:tm;
    begin
      randomize;
      for i:=1 to n do
      begin
        a[i]:=random(101-50);
        b[i]:=random(101-50);
        c[i]:=a[i]*b[i];
        Write(a[i],' ')
      end;
      Writeln;
      for i:=1 to n do
      begin
        Write(b[i],' ')
      end;
      Writeln;
      for i:=1 to n do
      begin
        Write(c[i],' ')
      end;
      Writeln
    end.
Самые новые вопросы