1. Поменять отрицательный эллемент нулем.2. Дан массив целых чисел. Отыскать сумму

1. Поменять отрицательный эллемент нулем.
2. Дан массив целых чисел. Найти сумму частей массива, больших данного числа А ( А вводить с клавиатуры).
3. Найти есть ли 2 пары примыкающих частей с схожими знаками. Паскаль.

Задать свой вопрос
Галина Горпенченко
Первую задачу подробнее распиши.
Квоков Борис
Поменять 1-ый отрицательный элемент 0.
Jevelina Razdoeva
Last i paris это?
1 ответ
2.
var a, n, i, sum, x:Integer;
begin
 readln(a, n);
 sum:=0;
 for i:=1 to n do
  begin
   read(x);
   if (xgt;a)
   then
    sum:=sum+x;
  end;
 writeln('Сумма: ', x);
end.

3.
var
begin
 readln(n);
 pairs:=0;
 if (ngt;0)
 then
  read(x);
 last:=x;
 for i:=2 to n do
  begin
   read(x);
   if (xgt;-1 and lastgt;-1 or xlt;0 and lastlt;0)
   then
    inc(pairs);
   last:=x;
  end;
 if (pairsgt;1)
 then
  writeln('Yes.');
 else
  writeln('No.');
end.
Минасбекова Василиса
1.
Ромик Абубакаров
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт