Составьте программу в pascal abc, которая заполняет массив а(1..10) случайными целыми числами в диапазоне от 1 до 100 , затем меняет местами максимальный и минимальный элементы. выведите на экран исходный и полученый массивы
Var a: array[1..10] of integer; i, max, imax, min, imin: integer;
begin Randomize; max := 0;min := 101; Write('Исходный массив: '); for i := 1 to 10 do begin a[i] := random(100) + 1; Write(a[i], ' '); end; Writeln(); For i:= 1 to 10 do begin if a[i] > max then begin max := a[i]; imax := i; end; if a[i] < min then begin min := a[i]; imin := i; end; end; swap(a[imax], a[imin]); Write('Преобразованный массив: '); For i:= 1 to 10 do Write(a[i], ' '); Writeln; Write('Я поменял местами ', imax, ' и ', imin, ' элементы'); end.
Думаю музыка для ушей это аналоговый сигнал. Аудиальный кортекс головного мозга музыканта воспринимает от ушей этот аналоговый стгнал (музыку) и его головной мозг переводит этот аналоговый сигнал в цифровой, ноты. У музыканта,в мозге есть АЦП, аналого-цифровой преобразователь, он слышит каждую ноту и сравнивает с эталоном по частоте, беря эталоны из своей памяти. Потому что у него хороший музыкальный слух. Память знает, что частота ноты Ля второй октавы 440 герц. Поток звука он сравнивает с эталонными нотами и записывает сами ноты. Я сумбурно объяснил?
Обозначим количество попасть обратно в начальную вершину за n прыжков как A(n), а количество попасть в одну из двух других вершин как B(n) (очевидно, количество одинаково для обеих вершин). Тогда:
A(n) = 2*B(n-1) {находясь в одной из двух не-начальных вершин после n-1 прыжка, лягушка прыгает в начальную вершину} B(n) = A(n-1) + B(n-1) {лягушка прыгает либо из начальной, либо другой не-начальной}
A(1) = 0 B(1) = 1
Далее по формулам A B - n 0 1 - 1 2 1 - 2 2 3 - 3 6 5 - 4 10 11 - 5 22 21 - 6 42 43 - 7 86 85 - 8 170 9
a: array[1..10] of integer;
i, max, imax, min, imin: integer;
begin
Randomize;
max := 0;min := 101;
Write('Исходный массив: ');
for i := 1 to 10 do
begin
a[i] := random(100) + 1;
Write(a[i], ' ');
end;
Writeln();
For i:= 1 to 10 do begin
if a[i] > max then
begin
max := a[i];
imax := i;
end;
if a[i] < min then
begin
min := a[i];
imin := i;
end;
end;
swap(a[imax], a[imin]);
Write('Преобразованный массив: ');
For i:= 1 to 10 do
Write(a[i], ' ');
Writeln;
Write('Я поменял местами ', imax, ' и ', imin, ' элементы');
end.