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

Плз, pascal. 1)дан массив z(8). определить количество элементов, меньших, чем пятый элемент. 2)дан массив d(12).определить сумму отрицательных элементов массива. 3)дан массив r(10). все нулевые элементы заменить суммой всех элементов.

👇
Ответ:
DianaBiktagirova
DianaBiktagirova
09.04.2022
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var z:=ArrRandom(8,1,20); z.Println;
  Writeln(z.Where(x->x>z[4]).Count);
  var d:=ArrRandom(12,-20,20); d.Println;
  Writeln(d.Where(x->x<0).Sum);
  var r:=ArrRandom(10,-9,9); r.Println;
  var s:=r.Sum;
  for var i:=0 to 9 do if r[i]=0 then r[i]:=s;
  r.Println
end.

Тестовое решение:
15 10 10 8 8 20 19 12
6
-17 -11 -3 -15 -11 -12 -16 19 1 1 11 -15
-100
2 -2 1 0 -8 1 -1 0 -5 9
2 -2 1 -3 -8 1 -1 -3 -5 9
4,4(23 оценок)
Открыть все ответы
Ответ:
kirillmajer2007
kirillmajer2007
09.04.2022
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

1. Если надо преобразовать число без знака в число

begin
  var n:=ReadInteger; // исходное число
  n:=n.ToString.Inverse.ToInteger; // полученное число
  n.Println; // вывод результата
end.

2. Если нужно только вывести результат

begin
  var n:=ReadInteger; // исходное число
  n.ToString.Inverse.ToInteger.Println
end.

3. Если надо только поменять местами символы, введенные с клавиатуры (например, два символа, изображающие число)

begin
  ReadlnString.Inverse.Println
end.

4. Если заданное число может быть отрицательным

begin
  var n:=ReadInteger; // исходное число
  var s:=Sign(n); // знак числа
  n:=Abs(n); // модуль числа
  n:=n.ToString.Inverse.ToInteger*s; // полученное число
  n.Println; // вывод результата
end.
4,5(93 оценок)
Ответ:
solopova08
solopova08
09.04.2022

ответ: 400

Объяснение:

Мистер Фокс находится на 1999 этаже. Узнаем, на каких ближайших этажах останавливается грузовой лифт. Остаток от деления 1999 на 7 равен 4. Значит лифт останавливается тремя этажами ниже и четырьмя этажами выше (где остаток от деления номера этажа на 7 равен 1).

Вариант первый: холодильник доставляют на 1996 этаж (1999-3). В таком случае, за подъём по лестнице придётся заплатить 450 рублей (150×3).

Вариант второй: холодильник доставляют на 2003 этаж (1999+4). В таком случае, за спуск по лестнице придётся заплатить 400 рублей (100×4).

Итак, как можно увидеть, наименьшая сумма, которую придётся заплатить, равна 400 рублей.

4,8(62 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ