Срочно нужен код на Паскале. 1 и 2 задание.
Срочно нужен код на Паскале. 1 и 2 задание.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
const
n=11;
begin
var a:=ArrRandomReal(n,-5,12); a.Println; Writeln;
var m:=a.Average;
for var i:=0 to n-1 do begin
if (a[i]>=0) and (a[i]y[i] then begin
s:=x[i]+y[i]; x[i]:=x[i]-y[i]; y[i]:=s
end;
i+=2
end;
x.Println; y.Println
end.
Пример
25 3 19 8 7 10 33 -9 20 6 12 -5 -17 34 13
27 11 31 31 12 12 60 30 17 16 41 32 31 22 55
----------------------------------------
25 14 19 39 7 22 33 21 20 22 12 27 -17 12 13
27 -8 31 -23 12 -2 60 -39 17 -10 41 -37 31 56 55
Не нашли ответ?
Похожие вопросы