М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Glupiy777
Glupiy777
15.09.2021 17:10 •  Информатика

Если не знаете, не пишите!​


Если не знаете, не пишите!​

👇
Открыть все ответы
Ответ:
kozlovaangelina
kozlovaangelina
15.09.2021
//Pascal ABC.NET 3.1 сборка 1219

Var
 n,a,b:integer;
 x:array of integer;

 procedure vvod(n:integer; var x:array of integer);
 begin
  x:=readarrinteger(n);
 end;

 begin
 readln(n,a,b);
 vvod(n,x);
 var sub1:=x.Where(x -> x<a);
 var sub2:=x.Where(x -> x>b);
 var sub:=sub1+sub2;
 n:=1;
 writeln('Сумма не вошедших:',sub.Sum);
 foreach var i in sub do
 n:=n*i;
 writeln('Произведение не вошедших:',n);
 writeln('Количество не вошедших:',sub.Count);
 writeln('Все элементы:',sub);
end.

Пример ввода:
5
1
5
-1
-2
4
5
6
Пример вывода:
Сумма не вошедших:3
Произведение не вошедших:12
Количество не вошедших:3
Все элементы:[-1,-2,6]
4,7(58 оценок)
Ответ:
всмпасы
всмпасы
15.09.2021
//Не самое изящное решение
//Pascal ABC.NET 3.1

Const
 n=5;

 Var ar:array[1..2*n] of integer;
 j,a,k,i,t:integer;
begin
 write('A:');
readln(a);
 writeln('Array:');
 for i:=1 to n do
 readln(ar[i]);
 j:=1;
 k:=n;
 while j<>k do
  begin
   if ((ar[j]>=0) and (ar[j+1]>=0)) or ((ar[j]<=0) and (ar[j+1]<=0)) then
   begin
    t:=ar[k];
    for i:=k-1 downto j do
     ar[i+1]:=ar[i];
    ar[j+1]:=a;
    inc(k);
    j:=j+2;
    ar[k]:=t;
   end
   else
 inc(j);
  end;
 writeln('Final array:');
 for i:=1 to k do write(ar[i]:4);
end.

Пример ввода 1:
6
1
2
3
4
5
Пример вывода 1:
1 6 2 6 3 6 4 6 5

Пример ввода 2:
6
-1
2
-3
4
-5
Пример вывода 2:
-1 2 -3 4 -5

Пример ввода 3:
6
1
2
-3
4
5
Пример вывода 3:
1 6 2 -3 4 6 5
4,7(38 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ