Вопрос по информатике:
Программирование в Pascal)
Надо написать программу.
1.N=20 Определить сумму отрицательных элементов массива.
2.Сдвинуть элементы массива на одну позицию вправо, последний элемент переместить на первое место.
3.Все положительные элементы исходного массива записать во второй массив, все отрицательные элементы – в третий массив.
- 06.05.2018 10:55
- Информатика
- remove_red_eye 2334
- thumb_up 36
Ответы и объяснения 1
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.
- 07.05.2018 14:59
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.