В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
lhukotunl
lhukotunl
30.04.2020 10:49 •  Информатика

очень

Как организовать ссылку к разделу текстового документа?​

Показать ответ
Ответ:
dimonbob2005
dimonbob2005
01.02.2022 10:10

pascalABC

Объяснение:

var

 a: array of integer;

 i, j, n, k: integer;

begin

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

 SetLength(a, n);

 Randomize();

 for i := 0 to n - 1 do begin

   a[i] := random(201) - 100;

   if a[i] > 0 then inc(k);

 end;

 for i := 0 to n - 2 do begin

   if a[i] > 0 then continue;

   for j := i + 1 to n - 1 do begin

     if a[j] > 0 then begin

       swap(a[i], a[j]);  //перестановка элементов местами

       break;

     end;  

   end;

 end;

 for i := 0 to n - 1 do Write(a[i], ', '); WriteLn;

 WriteLn('В массиве ', k, ' положительных элементов.');

end.

0,0(0 оценок)
Ответ:
sanfirovngmail
sanfirovngmail
20.04.2021 01:03

pascalABC

Объяснение:

var

 a: array of integer;

 i, j, n, k: integer;

begin

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

 SetLength(a, n);

 Randomize();

 for i := 0 to n - 1 do begin

   a[i] := random(201) - 100;

   if a[i] > 0 then inc(k);

 end;

 for i := 0 to n - 2 do begin

   if a[i] > 0 then continue;

   for j := i + 1 to n - 1 do begin

     if a[j] > 0 then begin

       swap(a[i], a[j]);  //перестановка элементов местами

       break;

     end;  

   end;

 end;

 for i := 0 to n - 1 do Write(a[i], ', '); WriteLn;

 WriteLn('В массиве ', k, ' положительных элементов.');

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота