Предмет: Информатика,
автор: mafffffiin
1. Заменить отрицательный эллемент нулем.
2. Дан массив целых чисел. Найти сумму элементов массива, больших данного числа А ( А вводить с клавиатуры).
3. Определить есть ли 2 пары соседних элементов с одинаковыми знаками. Паскаль.
Ответы
Автор ответа:
0
2.
var a, n, i, sum, x:Integer;
begin
readln(a, n);
sum:=0;
for i:=1 to n do
begin
read(x);
if (x>a)
then
sum:=sum+x;
end;
writeln('Сумма: ', x);
end.
3.
var
begin
readln(n);
pairs:=0;
if (n>0)
then
read(x);
last:=x;
for i:=2 to n do
begin
read(x);
if (x>-1 and last>-1 or x<0 and last<0)
then
inc(pairs);
last:=x;
end;
if (pairs>1)
then
writeln('Yes.');
else
writeln('No.');
end.
var a, n, i, sum, x:Integer;
begin
readln(a, n);
sum:=0;
for i:=1 to n do
begin
read(x);
if (x>a)
then
sum:=sum+x;
end;
writeln('Сумма: ', x);
end.
3.
var
begin
readln(n);
pairs:=0;
if (n>0)
then
read(x);
last:=x;
for i:=2 to n do
begin
read(x);
if (x>-1 and last>-1 or x<0 and last<0)
then
inc(pairs);
last:=x;
end;
if (pairs>1)
then
writeln('Yes.');
else
writeln('No.');
end.
Автор ответа:
0
1.
Автор ответа:
0
var i, n:Integer;
change:Boolean;
m:array [1..100] of Integer;
begin
readln(n);
change:=false;
for i:=1 to n do
begin
read(m[i]);
if (m[i]<0 and change=false)
then
begin
m[i]:=0;
change:=true;
end;
end;
for i:=1 to n do
write(m[i], ' ');
end.
change:Boolean;
m:array [1..100] of Integer;
begin
readln(n);
change:=false;
for i:=1 to n do
begin
read(m[i]);
if (m[i]<0 and change=false)
then
begin
m[i]:=0;
change:=true;
end;
end;
for i:=1 to n do
write(m[i], ' ');
end.
Похожие вопросы
Предмет: Алгебра,
автор: djfhjebn
Предмет: Биология,
автор: arinagolovanova93
Предмет: Математика,
автор: amantaevanargiz15
Предмет: Математика,
автор: ильяс40
Предмет: Литература,
автор: Aige1lxasupersik