Дан целочисленный массив из n элементов. Элементы массива могут принимать неотрицательные целые значения до 10 000 включительно. Необходимо найти минимальный кратный 3 и минимальный кратный 5 элемент массива. Затем необходимо уменьшить каждый кратный 3 и кратный 5 на соответствующий им минимум. При этом кратные 15 должны быть уменьшены на сумму этих минимумов. В качестве результата необходимо вывести изменённый массив в строку. Например, для исходного массива из девяти элементов: 5 9 10 11 12 13 14 15 16 программа должна вывести следующий массив 0 0 5 11 3 13 14 1 16 (Минимальный кратный трём равен 9, минимальный кратный 5 равен 5. Все кратные трём уменьшены на 9, всё кратные пяти уменьшены на 5, все кратные пятнадцати уменьшены на 14)

Program mathlover12;

const

 n = 6; {Количество элементов массива}

var  

 a:array[1..n] of integer;

s:string;

i,min,max: integer;

begin

 s:=' -=Alphaeus=- ';

 for i:=1 to 22 do begin write(s[i]); sleep(42) end;

{вводим элементы массива}

 writeln; writeln('Введите ',n,' чисел:');

 for i:=1 to n do read(a[i]);

{Ищем min и max}

min:=a[1];

max:=a[1];

 for i:=2 to n do

   begin

     if min>a[i] then min:=a[i];

     if max<a[i] then max:=a[i];

   end;

{Выводим произведение  min и max}

 writeln; writeln;

 writeln('Произведение min и max равнo ',min*max);

end.

Romanovich (первая буква большая)

Кодирование в ASCII (American standard code for information interchange):

Двоичный код: 01010010 (R), 01101111 (o), 01101101 (m), 01100001 (a), 01101110 (n), 01101111 (o), 01110110 (v), 01101001 (i), 01100011 (c), 01101000(h)

Кодирование в КОИ-8 («Код Обмена Информацией 8-битовый», таблица разработана для кодирования букв кириллицы)

Двоичный код: 11111010 (З), 11000001 (а), 11010111 (в), 11010100 (т), 11010010 (р), 11000001 (а), 00100000 (пробел), 11010111 (з), 11001001 (и), 11001101 (м), 11000001 (а), 00101110 (. точка)

Десятичный код этой фразы: 250, 193, 215, 212, 210, 193, 32, 215, 201, 205, 193, 46