: начертить блок схему, записать алгоритм на алгоритмическом языке.
1. информация о количестве выпавших в течении месяца осадка задана в виде массива. определите общее количество осадков за месяц.
2. вычислить сумму всех элементов матрицы x размером 8х8
заранее
begin
var s:=ReadInteger('n=').ToString;
Writeln('Количество цифр, меньших 6, равно ',
s.Where(x->x<'6').Count);
Writeln('Сумма первой и последней цифры равна ',
StrToInt(s[1])+StrToInt(s[s.Length]));
Writeln('Сумма самой маленькой и самой большой цифры равна ',
StrToInt(s.Min)+StrToInt(s.Max));
end.
Тестовое решение:
n= 254904
Количество цифр, меньших 6, равно 5
Сумма первой и последней цифры равна 6
Сумма самой маленькой и самой большой цифры равна 9