• Pascal

    Даны 3 числовые последовательности a,b,c.Сформировать две новые последовательности x,y в соответсвии с правилом


    xi=min(ai,bi)/2

    yi=min(bi,ci)/2



    i=1,2....n

Ответы 1

  • program one;

    type TIntMassiv = array of real;

    var a,b,c,x,y: TIntMassiv; n,i:integer;

    begin

    writeln('Введите длину массивов(n)');

    readln(n);

    setLength(a,n); // Создаем динамические массивы длины n

    setLength(b,n);

    setLength(c,n);

    setLength(x,n);

    setLength(y,n);

    for i := 0  to n-1 do  

     begin

      writeln('Введите ',i+1, ' массива a');

      readln(a[i]);  

      writeln('Введите ',i+1, ' массива b');

      readln(b[i]);  

      writeln('Введите ',i+1, ' массива c');

      readln(c[i]);

     end;

    for i := 0 to n-1 do

     begin

      x[i] :=  MIN(a[i],b[i]) / 2;

      y[i] :=  MIN(a[i],c[i]) / 2;

     end;

    for i := 0 to n-1 do

     begin

      writeln('x[',i,']=',x[i]);

      writeln('y[',i,']=',y[i]);

     end;

    a := nil; //Освобождаем память

    c := nil;

    b := nil;

    x := nil;

    y := nil;

    end.

    • Автор:

      elena97
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years