Программирование в Pascal) Надо написать программу. 1.N=20 Определить сумму отрицательных элементов массива. 2.Сдвинуть элементы массива на одну позицию вправо, последний элемент переместить на первое место. 3.Все положительные...
Программирование в Pascal)
Надо написать программу.
1.N=20 Определить сумму отрицательных элементов массива.
2.Сдвинуть элементы массива на одну позицию вправо, последний элемент переместить на первое место.
3.Все положительные элементы исходного массива записать во второй массив, все отрицательные элементы – в третий массив.
Гость
Ответ(ы) на вопрос:
Гость1.
Program A1;
const n=20;
var
i,a:integer;
O:array[1..n] of integer;
begin
a:=0;
for i:=1 to n do begin
readln(o[i]);
if o[i]<0 then a:=a+o[i];
end;
writeln(a);
end.
2.
Program A1;
const n=20;
var
i,a:integer;
O:array[1..n] of integer;
begin
a:=0;
for i:=1 to n do readln(o[i]);
a:=o[n];
for i:=n-1 downto 1 do o[i+1]:=o[i];
o[1]:=a;
for i:=1 to n do write(' ',o[i],' ');
end.
3.
Program A1;
const n=20;
var
i,a:integer;
O:array[1..n] of integer;
P:array[1..n] of integer;
M:array[1..n] of integer;
begin
for i:=1 to n do begin
readln(o[i]);
if o[i]>0 then p[i]:=o[i];
if o[i]<0 then m[i]:=o[i];
end;
for i:=1 to n do write(' ',o[i],' ');
writeln;
for i:=1 to n do
if p[i]<>0 then
write(' ',p[i],' ');
writeln;
for i:=1 to n do
if m[i]<>0 then
write(' ',m[i],' ');
writeln;
end.
Не нашли ответ?
Похожие вопросы