Автоматический (через заданное количество времени), и по щелчку
Ответ:3) 90 , так как при i=11 A[i]>100 и следовательно B[i]-будет положительным
Var
a:Array [1..20] Of Integer;
i:Integer;
k:Integer;
Begin
write('Введите количество элементов массива не более 20:');
Read(k);
For i:=1 To k Do
Read(a[i]);
<span>End.</span>
Var
k,sum:integer;
begin
for k:=230 to 430 do
if (k mod 2<>0) then
sum:=sum+k;
write(sum);
end.