0)начало
1)посадил дед репку
2)выростил
3)начал ее вытягивать из земли
4)позвал бабку
5)тянут потянут ,вытянуть не могут
5)позвали внучку
6)тянут потянут ,вытянуть не могут
7)позвали Жучку
8)тянут потянут ,вытянуть не могут
9) позвали кошку
10) тянут потянут, вытянуть не могут
11)позвали мышку вытащили
12)конец
Объяснение:
Вариант 6
const
N = 10;
var
a: array[1..N] of integer;
i, max1, max2: byte;
begin
randomize;
for i:=1 to N do begin
a[i] := random(10);
write(a[i]:3);
end;
writeln;
max1 := 1;
for i:=2 to N do
if a[i] > a[max1] then
max1 := i;
if max1=1 then
max2 := 2
else
max2 := 1;
for i:=2 to N do
if i <> max1 then // чтобы пропустить max1
if a[i] > a[max2] then
max2 := i;
writeln(max1,' ', a[max1]);
writeln(max2,' ', a[max2]);
end.
Вариант 8 не получилось
250*8:2000= 1 бит информации несет каждый символ.
Раз 1 бит, значит символов 2^1=2.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=Arr('Клиндухова','Кобзарь','козловский','капша','мороз Артем',
'Мороз ИЛья','Павлова','Глухих');
s.Println;
s:=s.OrderBy(t->t.ToUpper).ToArray;
s.Println
end.