Var
mas:array [1..20] of integer;
i,sum,A:integer;
begin
for i:=1 to 20 do
read(mas[i]);
for i:=1 to 20 do
If odd(mas[i]) then
sum:=sum+mas[i];
writeln('Сумма элементов имеющих нечетное значение = ',sum);
writeln('Введите А');
readln(A);
writeln('Индексы элементов, значение которых больше,чем А:');
for i:=1 to 20 do begin
if mas[i]>A then
write(i,' ');
end;
end.
Пройденный путь = |S-(T*(u1+u2))|
На паскале
var u1,u2,S,T,P:integer;
begin
Readln(u1,u2,S,T);
P:=Abs(S-((u1+u2)*T));
Writeln('Растояние между ними через T часов = ',P);
end.
1) упрощаем логическое выражение
2) строим таблицу истинности
В а - количество проходов по циклу (а=2; 2*2=4 - четырёхзначное число Х)
в b - сумма двух пар цифр числа Х (x mod 100 - выделение двух последних цифр из Х)
a=2 b=17
17-9=8 ответ max X=9800