Итак, вначале напишем число 74 из которого в итоге должны получить 0.
Вот что получилось у меня.
74|:2
37|-1
36<span>|:2
18</span><span>|-1
17</span><span>|-1
16</span><span>|-1
15</span><span>|-1
14</span><span>|:2
7</span><span>|-1
6</span><span>|:2
3</span><span>|-1
2</span><span>|:2
1</span><span>|-1
Следуя этому получаем: 2121111212121 </span>
uses crt;
var i,count:integer;
a:array[1..15] of integer;
begin
randomize;
count:=0;
writeln('Первый екзамен сдало 15 человек ');
for i:=1 to 15 do
begin
a[i]:=random(5)+1;
if a[i] = 2 then inc(count);
end;
for i:=1 to 15 do writeln('Студент ',i,' написал на ',a[i],' балов '); //не обезательно
writeln('На екзамен допущено ',count,' человек!! ');
readln;
end.
// PascalABC.NET 3.3
begin
var a := ArrRandomInteger(10); a.Sort;
var b := ArrRandomInteger(10); b.Sort;
var c := new integer[20];
writeln('Array 1:'); a.println;
writeln('Array 2:'); b.println;
var i := 0;
var j := 0;
var k := 0;
while (i < 10) and (j < 10) do
begin
if a[i] < b[j] then
begin
c[k] := a[i];
i := i + 1;
end else begin
c[k] := b[j];
j := j + 1;
end;
k := k + 1;
end;
while i < 10 do
begin
c[k] := a[i];
i := i + 1;
k := k + 1;
end;
while j < 10 do
begin
c[k] := b[j];
j := j + 1;
k := k + 1;
end;
writeln('Merged array:'); c.println;
end.
Полезность це колы ты всим нужен и ты вмиеш це робыти .