Var
a:array [1..9] of integer;
i,k,b:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=random(141)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]<=99 then
if ((a[i] div 10) mod 2)<>0 then k:=k+a[i];
if a[i]>99 then
begin
b:=a[i] div 10;
if (b mod 2)<>0 then k:=k+a[i];
end;
end;
writeln('Сумма элементов у которых вторая с конца цифра нечетная: ',k);
end.
Алгоритм с повторением (циклический) – это алгоритм, который содержит команду повторения (команду, которая исполняется до тех пор, пока не выполнится условие). ЗАДАЧА: составить графический алгоритм наполнения ведра водой из бочки. Алгоритм Наполнение Начало 1. Пока ведро неполное, повторять: 2. Налить в ведро кружку воды. Конец. Команда повторения. Тело цикла.
1) 3 яблока;2) 4 яблока;3) 5 яблок;4) n+1 яблок.Объяснение: если доставать яблок столько же, сколько и сортов, то они могут быть все разных сортов.<span>Если же достfвать яблок на одно больше, чем количество сортов, и даже если все кроме последнего разных сортов, то последнее обязательно будет одного и того же сорта с каким-нибудь из остальных.</span>
10- это точно, так как присвоено
рандом(5) - это значит что У от 0 до 4
т.е. У может принимать значения от 10 до 14
var
A, B, N, i: integer;
begin
N:= 0; //Обнуляем счетчик
writeln('Введите числа A и B');
readln(A, B); //Вводим А и B
if A < B then {Если А < B, то печатаем числа начиная с B и заканчивая A,
иначе наоборот}
for i:= B downto A do
begin
write(i, ' '); //Печатаем i
inc(N); //Увеличиваем счетчик на 1
end
else
for i:= A downto B do
begin
write(i, ' ');
inc(N);
end;
writeln;
writeln('Количество N этих чисел равно: ', N); //Выводим N
end.
Если все правильно, отметь решение как лучшее)