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

Дана последовательность целых чисел, оканчивающаяся нулём. Определите, сколько элементов этой последовательности больше предыдущего элемента. Ноль числом последовательности не считается.

Формат входных данных

Вводится не более, чем 215215целых чисел, каждое из которых не превосходит по модулю 215−1215−1. После последнего числа вводится 00.

Формат выходных данных

Требуется вывести одно число — ответ на во задачи.

входные данныевыходные данные1 7 9 0 2
ПИТОН! ​

👇
Открыть все ответы
Ответ:
Katyastudio
Katyastudio
30.09.2022

pascal

Объяснение:

procedure sortmas(a: array of integer);

var i, j, min, ind: integer;

begin

 for i := 0 to Length(a) - 2 do

 begin

   min := a[i]; ind := i;

   for j := i + 1 to Length(a) - 1 do

     if a[j] < min then

     begin

       min := a[j]; ind := j;

     end;

   a[ind] := a[i]; a[i] := min;

 end;

end;

var a: array of integer;

   n , i: integer;

begin

 WriteLn('Введите размер массива: '); Read(n);

 SetLength(a, n);

 Randomize;

 WriteLn('Содержимое массива:');

 for i := 0 to Length(a) - 1 do

 begin

   a[i] := random(100);

   Write(a[i], ', ');

 end;

 WriteLn;

 sortmas(a);

 WriteLn('Три минимальных элемента: ', a[0], ', ', a[1], ', ', a[2], ', ');

end.

4,6(24 оценок)
Ответ:
Ertadaysma
Ertadaysma
30.09.2022

1)r

Объяснение:

Режим r в языке программирования питон идет по умолчанию и открывает файл только для чтения.

Режим a в языке программирования питон отвечает за открытие файла для добавления данных в конец файла без очистки его содержимого. Этот режим создаёт новый файл, если он не существует.

Режим w в языке программирования питон отвечает за открытие файла для записи. Режим создаёт новый файл, если он не существует, или стирает содержимое существующего.

Режим t в языке программирования питон отвечает за открытие файла в текстовом формате. Этот режим используется по умолчанию.

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