Сформировать случайный одномерный целочисленный массив Х, состоящий из 17 элементов, значения элементов от -43 до 79 1)Вычислить сумму однозначных элементов массива
Максимальное число, которое может получиться 9+9=18 т.к 99 - максимальное двузначное число, а наименьшее: 1+0=1 (число 10).
211 может получиться, например при числах 56 и 20 1717 может получиться, например при числах 89 и 89 1817 не может получиться, т.к числа записываются в порядке возрастания(неубывания). 1718 может получиться, например при числах 98 и 99 1719 не может получиться, т.к (19>18) 219 не может получиться, т.к (19>18) 21 не может получиться, т.к числа записываются в порядке возрастания(неубывания). 10 не может получиться, т.к (0<1) ответ: 3
program z1;
var i,s,k: integer;
x: array [1..17] of integer;
begin
s:=0;
k:=0;
write('Массив');
for i := 1 to 17 do
begin
x[i]:=random(123)-43;
write (x[i]:5);
if (x[i]>-10) and (x[i]<10) then
begin
s:=s+x[i];
k:=1
end
end;
writeln;
if k <> 0 then write('Сумма однозначных элементов массива ',s)
else write ('Однозначных элементов нет')
end.