Исполнитель "робот"может исполнить только два действия вперед на 5; прибавишь 3. выберите точки 1,2,7,8,13,14,16,18,до которых он не сможет добраться. а) 1,2,8 в) 1,2,7 с) 13,1,18 d) 7,16,14
ответ: B) до 8-ки можно дойти: вперёд на 5 и плюс 3; до 13 от 8-ки – вперёд на 5; от 8-ки плюс 3 и плюс 3 – придём в 14; от 13 плюс 3 – придём в 16; от 13 вперёд на 5 – придём в 18. Остаются 1, 2 и 7.
1)var ar:array of integer; max,min,s,i,n,maxi,mini:integer; begin; randomize; max:=-1; min:=101; readln(n); setlength(ar,n+1); writeln('Array:'); for i:=1 to n do begin; ar[i]:=random(100); write(ar[i]:4); if max<ar[i] then begin; max:=ar[i]; maxi:=i; end; if min>ar[i] then begin; min:=ar[i]; mini:=i; end; s:=s+ar[i]; end; ar[maxi]:=s; ar[mini]:=s; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end. 2)var ar:array of integer; k,h,i,s:integer; f:real; begin; randomize; readln(h); setlength(ar,h+1); writeln('Array:'); for i:=1 to h do begin; ar[i]:=random(100)-50; write(ar[i]:4); if (ar[i]>0) and (ar[i] mod 2=0) then begin; inc(k); s:=s+ar[i]; end; end; f:=s/k; writeln; writeln('Result:',f); end.
Program z1; Var i,n,a,b,c:integer; m: array [1..1000] of integer; Begin write('Введите кол-во чисел - '); readln(n); randomize; a:=0; b:=0; c:=0; for i:=1 to n do begin m[i]:=random(100)-50; write (m[i],' '); end; for i:=1 to n do if (m[i]=0) then a:=a+1; for i:=1 to n do if (m[i]>0) then b:=b+1; for i:=1 to n do if (m[i]<0) then c:=c+1; writeln; writeln ('Кол-во нулей - ',a); writeln ('Кол-во положительных чисел - ',b); writeln ('Кол-во отрицательных чисел - ',c);End.
до 8-ки можно дойти: вперёд на 5 и плюс 3;
до 13 от 8-ки – вперёд на 5;
от 8-ки плюс 3 и плюс 3 – придём в 14;
от 13 плюс 3 – придём в 16;
от 13 вперёд на 5 – придём в 18.
Остаются 1, 2 и 7.