2000 кб= 2 048 000б
2 048 000б ÷ 1024000 б/с= 2 сек (сек сокращяются)
Не(1*0)+(1+1) =1
1*(1+(1*не 0)*0=0
не (x=5) +(x>6) (вот тут не понимаю ,что нужно)
Ветвление — алгоритмическая конструкция, в которой, в зависимости от результата проверки условия («да» или «нет»), предусмотрен выбор одной из двух последовательностей действий (ветвей).
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.