1)Составьте программу обмена в массиве B(N) первого отрицательного и максимального элементов. 2)Составьте программу вставки в массив A(N) пятого элемента, равного 8.
93
ОТВЕТЫ
// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
var b:=ArrRandom(ReadInteger(n=),-99,99); b.Println;
var jn:=b.FindIndex(x-gt;xlt;0); // индекс первого отрицательного
var jm:=b.IndexMax; // индекс первого максимального
Swap(b[jn],b[jm]); b.Println
end.
Пример
n= 15
33 60 -72 13 -15 -36 21 98 -21 -22 56 -20 0 -98 28
33 60 98 13 -15 -36 21 -72 -21 -22 56 -20 0 -98 28
2)
begin
var a:=ArrRandom(ReadInteger(n=),-99,99); a.Println;
a:=a[:4]+Arr(8)+a[4:]; a.Println;
end.
Пример
n= 10
65 56 31 74 -4 -54 43 8 -58 -94
65 56 31 74 8 -4 -54 43 8 -58 -94
// Внимание! Если программа не работает, обновите версию!
1)
begin
var b:=ArrRandom(ReadInteger(n=),-99,99); b.Println;
var jn:=b.FindIndex(x-gt;xlt;0); // индекс первого отрицательного
var jm:=b.IndexMax; // индекс первого максимального
Swap(b[jn],b[jm]); b.Println
end.
Пример
n= 15
33 60 -72 13 -15 -36 21 98 -21 -22 56 -20 0 -98 28
33 60 98 13 -15 -36 21 -72 -21 -22 56 -20 0 -98 28
2)
begin
var a:=ArrRandom(ReadInteger(n=),-99,99); a.Println;
a:=a[:4]+Arr(8)+a[4:]; a.Println;
end.
Пример
n= 10
65 56 31 74 -4 -54 43 8 -58 -94
65 56 31 74 8 -4 -54 43 8 -58 -94
164
Отв. дан
Manara
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Варфоломеевич
Файл размером 162 Мбайт передаётся через некоторое соединение за ...
2019-05-10 06:14:01
Герасим
Приведите примеры информации , отсортированной: а) по алфавиту; б) ...
2019-05-10 06:13:50
Альфредович
Сколько места надо выделить для хранения 13 страниц книги, ...
2019-05-10 06:13:44
Burirn
Сколько учебников размером в 2048 Кбайт можно разместить на ...
2019-05-10 06:11:20