Построить блок схему к задаче. Указать тип
алгоритма, что дано и что нужно найти: (желателньо решить все, но буду благодарен решению любой задаче)
1)Дано двузначное число. Найти: сумму его цифр;
2) Известны две скорости: одна в километрах в час, другая — в метрах в
секун- ду. Какая из скоростей больше?
3)Напечатать таблицу перевода расстояний в дюймах в сантиметры для значе- ний 10, 11,
..., 22 дюйма (1 дюйм = 25,4 мм).
если во втором тексте в 3.5 больше символов, чем в первом, при одинаковом инф. объеме, то число бит на каждый символ во втором тексте должен быть в 3.5 раза меньше, чем в первом тексте, чтобы размер файла текста не изменился: например 2 и 7 или 4 и 14 или 6 и 21... и т.д. соответственно, соовтетственно, мощность алфавита будет 4 и 128 или 32 и 16386 или 64 и 2097152.. и т.д. То, что в обоих текстах символов меньше 200 не говорит о том, что символы не могут повторяться, а значить определенно сказать, которая их вышеприведенного списка мощность алфавита будет верной нельзя.
type
mas = array[0..1000] of integer;
var
a: mas;
i, n, max: integer;
begin
WriteLn('Введите кол-во эл-тов массива:');
ReadLn(n);
for i := 1 to n do
begin
WriteLn('Введите значение элемента №', i);
ReadLn(a[i]);
end;
WriteLn('Все элементы массива имеют значение');
max := -1;
for i := 1 to n do
if a[i] > max then
max := a[i];
if max <> -1 then
Writeln('Максимальное значение положительного элемент = ', max)
else Writeln('Положительных элементов нет');
ReadLn;
end.