const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
write ('Массив: ');
for i:=1 to n do
begin
a[i]:=random(56);
if (a[i]>=12) and (a[i]<=34) then k:=k+1;
if i<>n then write (i,' элемент: ',a[i],'; ') else write (i,' элемент: ',a[i],' ')
end;
writeln;
writeln ('Количество элементов, значения которых попадают в интервал от 12 до 34, равно ',k)
end.
Program n1;
var a: array[1..18] of integer;
i,k: integer;
begin
randomize;
k:=0;
writeln('исходный массив:');
for i:=1 to 18 do
begin
a[i]:=random(87)-4;
write(a[i],' ');
if a[i] mod 2=0 then k:=k+1;
end;
writeln;
write('k четн: ',k);
end.
1) Сместиться на (−5, −2)
2) Сместиться на (−3, −5)
3) Сместиться на (−5, −4)
<span>4) Сместиться на (−5, −5)
(-5-3-5-5;-2-5-4-5)=(-18;-16)
значит, чтобы вернуться в исходную точку нужно выполнить команду :
сместиться на(18;16)</span>
2) Курсор стоит в самом начале текста
Ночь -НОЛЬ-соль-сонь-сень-день
бег-бог-рог-ром-том-тор-тар-шар-шаг