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

Вмассиве a[1..n] найти максимальное число и уменьшить все элементы массива на 5. вывести полученную последовательность на экран. !

👇
Ответ:
marksmanpyro
marksmanpyro
29.11.2020
// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
  Writeln('Максимальный элемент равен ',a.Max);
  a.Transform(x->x-5); a.Println;
end.

Пример
n= 15
30 73 60 94 45 83 32 11 47 25 44 71 95 60 90
Максимальный элемент равен 95
25 68 55 89 40 78 27 6 42 20 39 66 90 55 85
4,7(35 оценок)
Открыть все ответы
Ответ:
MissOmnomno
MissOmnomno
29.11.2020
Var a, b, c, rez: real;
begin
write('Введите число А: ');
readln(a);
write('Введите число B: ');
readln(b);
write('Введите число C: ');
readln(c);
if (a >= 0) and (b >= 0) and (c >= 0) then rez := a + b + c;
if (a >= 0) and (b >= 0) then rez := a + b;
if (a >= 0) and (c >= 0) then rez := a + c;
if (b >= 0) and (c >= 0) then rez := b + c;
if (a <= 0) and (b <= 0) then rez := c;
if (b <= 0) and (c <= 0) then rez := a;
if (a <= 0) and (c <= 0) then rez := b;
if (a <= 0) and (b <= 0) and (c <= 0) then rez := 0;
writeln(rez);
end.

Громоздко, но, думаю, покатит
4,6(44 оценок)
Ответ:
StePAHka228
StePAHka228
29.11.2020

ответ: 2 (нажав 10 раз на стрелку вправо курсор окажется после второго пробела перед буквой r, нажав 7 раз на Delete удалим последовательно rrrttt и лишний пробел)


Есть 4 клавиши со стрелками (клавиши управления курсором): стрелка влево (назад), стрелка вправо (вперёд), стрелка вверх и стрелка вниз.

Клавиша Backspace (обычно находится над клавишей Enter, иногда обозначается стрелкой направленной влево) — используется для удаления символа, находящихся перед курсором (слева от курсора).

Клавиша Delete (иногда обозначается Del) — используется для удаления символа, находящихся за курсором (справа от курсора).

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