• Pascal!!!Дан массив целых чисел размерности 10.Из всех четных элементов вычесть последний элемент,из всех нечетных-последний.Нулевые оставить без изменений.

Ответы 2

  • const n=10;vara:array[1..n] of integer;i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:4); end;writeln;for i:=1 to n do if a[i]<>0 then a[i]:=a[i]-a[n];for i:=1 to n do write(a[i]:4);writeln;end.Пример:   3   4   2  -1  -5   6  -9  -2   0   2   1   2   0  -3  -7   4 -11  -4   0   0
    • Автор:

      darialtre
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var a:=ArrRandom(10,-20,20); a.Println;  var c:=a[a.High];  a.Transform(x->x=0?x:x-c); a.Printlnend.Тестовое решение-4 9 4 0 18 1 -8 -6 -8 12-16 -3 -8 0 6 -11 -20 -18 -20 0
    • Автор:

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

Войти через Google

или

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

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

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