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

В массиве Z(10) найти минимальный элемент и сформировать новый массив, каждый элемент которого получится умнождением элемента массива Z на его минимальный элемент. Вывести оба массива.   ПОЖАЛУЙСТА.Этоне для моих куриных мозгов

  1. Ответ
    Ответ дан MagAragorn
    var a,b,i,min:longint;
    m,l:array[1..10] of longint;
    begin
    min:=100000;
    for i:=1 to 10 do
    begin
    read(m[i]);
    if m[i]<min then
    min:=m[i];
    end;
    for i:=1 to 10 do
    begin
    l[i]:=m[i]*min;
    end;
    for i:=1 to 10 do
    write(m[i],' ');
    writeln;
    for i:=1 to 10 do
    write(l[i],' ');
    end.
    1. Ответ
      Ответ дан natali7456
      а как надо?
    2. Ответ
      Ответ дан blowberryninja
      У него не правильно вовсе)
    3. Ответ
      Ответ дан MagAragorn
      ща разберусь, это сайт все в строчку сжимает
  2. Ответ
    Ответ дан BlazRock
    можно попробывать набрать вот так))
    1. Ответ
      Ответ дан blowberryninja
      Тоже так сделал бы)
    2. Ответ
      Ответ дан MagAragorn
      Var a,b,i,min:longint;
      m,l:array[1..10] of longint;
      begin
      min:=100000;
      for i:=1 to 10 do
      begin
      read(m[i]);
      if m[i]<min then
      min:=m[i];
      end;
      for i:=1 to 10 do
      begin
      l[i]:=m[i]*min;
      end;
      for i:=1 to 10 do
      write(m[i],' ');
      writeln;
      for i:=1 to 10 do
      write(l[i],' ');
      end.
Самые новые вопросы