Возможное решение одно:
- 2 бита на символ и 3 бита на символ
Это 4 символа в одном алфавите и 8 символов во втором алфавите
Примерно так:
min=a[0];
for (int i=0, i<4, i++)
if(a[i]<min)
min=a[i];
здесь ты в переменную min записываешь минимальное значение. лучше первое значение из массива присваивать(или нулевое, как у меня).
проходишь циклом по массиву и сравниваешь значение min со значениями из масива. если какое-то окажется меньше, ты его записываешь в переменную min
если некоторые переменные окажутся одинаковыми, то ничего не произойдет :)
например
7 1 1 5
запишется первая единица. и все
а) для расписания уроков лучше использовать таблицу
Program sasaylalka;
var a,b:integer;
P,d:real;
begin
writeln('Введи стороны');
readln(a,b);
P:=2*(a+b);
writeln('Периметр равен ',P);
d:=sqrt(sqr(a)+sqr(b));
writeln('Диагональ равна ',d);
readln;
end.