<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(20, 20, 40);
a.Println;
a.Transform(t -> t mod 10 = 4 ? t div 2 : t);
a.Println
end.
26 24 38 40 26 27 32 39 32 34 32 28 36 25 40 34 20 26 21 36
26 12 38 40 26 27 32 39 32 17 32 28 36 25 40 17 20 26 21 36
Каждый символ содержит 8 бит, а в слове информатика 11 символов, поэтому 11*8=88 бит
1: Массив – разновидность объекта, которая предназначена для
хранения пронумерованных значений и предлагает дополнительные методы для
удобного манипулирования такой коллекцией
2: Размерность массива это количество элементов содержащихся в нем, например 5 т.е. 0,1,2,3,4. От сюда вытекает и индекс элемента то есть его номер в массиве, например a[0] - первый элемент с индексом 0 и т.д.
3: Одномерный массив - набор однотипных компонентов расположенных друг за другом, доступ по индексу. пример: array[5] = [1,2,3,4,5];
4: На паскале m: array [1 .. 16] of integer; (массив m с 16-ю элементами целого типа)
5: По его номеру m[4] , где m[] - массив, а 4 - номер элемента
6: в основном через циклы: for, while, repeat (paskal)
var m: array [1 .. 8] of real;
begin
for i := 1 to 8 do
begin
readln(m[i]);//ввод элемента массива
writeln("Элемент массива m[",i,"]=",m[i]);//сразу выводим
end;
end.
7: Под сортировкой массив понимается <span> алгоритм для упорядочивания элементов в списке
8: Их не мало: сортировка пузырьком, перемешиванием, вставками, гномья, слиянием, при помощи двоичного дерева, timsort, подсчетом, блочная сортировка, поразрядная сортировка,выбором, Шелла, расческой, плавная, быстрая , интроспективная, терпеливая и другие......
9: Массивы в массиве... одномерный массив, его элементами являются одномерные массивы, доступ осуществляется по двум индексам
10: Матрица: таблица состоящая из строк и столбцов, размерность матрицы это количество строк на количество столбцов
11: Квадратная матрица это матрица с одинаковым количеством строк и столбцов
12: </span><span>На паскале m: array [1 .. N 1..M] of integer;
13: По двум индексам строка-столбец: m[i,j]
14:</span>
randomize;<span>//процедура рандомизатора
for i:=1 to m do
for j:=1 to n do
m[i,j]:=random(2*20+1)-20;</span>
15:
<span>for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:7);
writeln;
end;</span>
<span>program delehka(input,output);
var
a:Array[1..1000010] of longint;
i,n,s,ma,mi,sl:longint;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
mi:=(1 shl 30);
ma:=-(1 shl 30);
for i:=1 to n do
begin
read(a[i]);
ma:=max(ma,a[i]);
mi:=min(mi,a[i]);
end;
if ma=mi then write(0,'',n,'',0)
else
begin
for i:=1 to n do
begin
if a[i]=ma then s:=s+1;
if a[i]=mi then sl:=sl+1;
end;
writeln(s,' ',sl,' ',n-s-sl);
close(input);
close(output);
end;
end.</span>
