<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure SortInsert(a:array of integer);
// сортировка простыми вставками по убыванию
begin
for var i:=1 to a.Length-1 do
if a[i-1]<a[i] then begin
var (t,j):=(a[i],i-1);
while (j>=0) and (a[j]<t) do begin
a[j+1]:=a[j]; j-=1
end;
a[j+1]:=t
end
end;
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
// приступаем к сортировке четных строк (строк с нечетными индексами)
var row:=1;
while row<=m-1 do begin
var v:=a.Row(row);
SortInsert(v);
a.SetRow(row,v);
row+=2
end;
Writeln('*** Сортированный массив ***'); a.Println(4) // вывод
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 5 9
*** Исходный массив ***
-13 -53 35 84 72 44 76 -78 -93
-86 -82 90 -35 -16 55 -99 -24 -63
64 -29 -34 51 89 4 51 37 80
7 19 81 41 34 -49 64 1 -59
51 -80 71 -13 19 9 -90 7 6
------------------------------------
*** Сортированный массив ***
-13 -53 35 84 72 44 76 -78 -93
90 55 -16 -24 -35 -63 -82 -86 -99
64 -29 -34 51 89 4 51 37 80
81 64 41 34 19 7 1 -49 -59
51 -80 71 -13 19 9 -90 7 6
Ответ:
Устройства ввода — это, в основном, датчики преобразования неэлектрических величин (расположение в пространстве, давление, вязкость, скорость, ускорение, освещённость, температура, влажность, перемещение, количественные величины и т. п.) и электрических величин в электрические сигналы, воспринимаемые процессором для дальнейшей их обработки в основном в цифровом виде.
Клавиатура
Мышь и тачпад
Планшет
Джойстик
Сканер
Цифровые фото, видеокамеры, веб-камеры
Микрофон
Устройства вывода — это преобразователи электрической цифровой информации в вид необходимый для получения требуемого результата, который может быть как не электрической (механические, тепловые, оптические, звуковые), так и электрической природы (трансформаторы, нагреватели, электродвигатели, реле).
Монитор
Графопостроитель
Принтер
Акустическая система
Ответ:
1.Голубой
2.Светло-зелёный
3.Розовый
4.Коричневый
Объяснение:
Проверено через программу TextEdit функции выбора цвета на Mac OS
Program forZnania;
var x,a,b:integer;
begin
a:=0;
b:=0;
repeat
readln(x);
if x mod 2=0 then a:=a+1 else b:=b+x
until x=0;
a:=a-1;
writeln('Количество четных чисел: ',a);
writeln('Сумма нечетных чисел: ',b);
end.
~~~~~~~
Наверное Вы удивитесь почему после цикла стоит 'a:=a-1'?
Поясняю: когда Вы вводите последнее число 0, то программа воспринимает его за четное число и приписывает его к кол-ву четных чисел, поэто уменьшаем кол-во чет чисел на одно.
1) 7+7+7 = 21 - 3 =18-3=15-3=12+7=19
2) дважды перевезти по 2 англ и 1 людоеду и последний заплыв на 2 людоедов
3) Разделить 2014 на 2. Получаем 1007 монет в каждой группе. Поочередно взвешиваем обе группы.
4) 90 93 указывают на буквы рс, все слова и коды одинаковы ,то есть каждая буква зашифровывается числом. р=90 ,с=93 ,марс и морс отличаются одной буквой и им соответсвутют 80 84 90 93 и 80 05 90 93 (не учитывая порядка) . м=80 , пирс имеет первые 2 буквы отличающиеся от морс и и марс. То есть п=87 , и=62 ,методом , исключения получаем барс 10 05 90 93 а=05 ,значит марс=10 05 90 93 ,морс=80 84 90 93 ,о=84
сироп=93 62 90 84 87
5) По 50 монет. 450:9=50(монет) по одному рублю.
6) Команды покрасить было только две, соответственно покрашены в конце лишь 2.