// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое.
var a: array [1..10] of real; // возьмем массив из 10 чисел
i,x :byte;
begin
randomize;
for i:=1 to 10 do //заполняем исходный массив случайными числами (до 1000)
begin
a[i]:=random(1000);
writeln (i,' элемент исходного массива ',a[i]);
end;
writeln ();
for i:=1 to 10 do
begin
x:=i mod 2; //определяем четный или нет элемент массива
if x=0 then //если элемент четный
begin
a[i]:=a[i]/2;
writeln (i,' элемент массива - четный ',a[i]);
end
else //если элемент нечетный
begin
a[i]:=a[i]*2;
writeln (i,' элемент массива - нечетный ',a[i]);
end;
end;
<span>end.</span>
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var m:=ReadInteger('Число минут:');
Writeln(m div 60,'ч ',m mod 60,'м')
end.
<u><em>Тестовое решение:</em></u>
Число минут: 150
2ч 30м
Пол кода удаляется, могу только скриншот кинуть
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqInteger(ReadInteger('n=')).Reverse.Println;
end.
<u>Пример</u>
n= 5
1 2 5 7 9
9 7 5 2 1
Формула для определения информационного объёма звукового байла:
N = k L f t
k - количество каналов (1 для моно, 2 для стерео)
L - глубина кодирования (количество информации в одном измерении)
f - частота (количество измерений в секунду)
t - продолжительность записи
1) N = 1 * 8 бит * 8000 Гц * 10 с = 640 000 бит = 80 000 байт = 78,1 Кб
2) N = 2 * 16 бит * 48000 Гц * 10 с = 15 360 000 бит = 1 920 000 байт = 1875 Кб = 1,8 Мб