12) var A: array[1..7] of integer; k: integer; begin randomize; for k := 1 to 7 do A[k] := random(5); write("vvedite den' nedeli: "); readln(k); if (k < 1 or k > 7) writeln("error"); else if ( A[k] <> 0) then writeln("segodnya urokov: ", A[k]); else write("vyhodnoy"); end.
13) var k: real; begin write("vvedite chislo: "); readln(k); if (k > 0) then write("polozhitel'noe, "); else if (k < 0) then write("otricatel'noe, "); else write("nol', "); if (k mod 1 <> 0) then write("neceloe, "); else write("celoe, "); if (k mod 2 <> 0) then writeln("nechetnoe"); else writeln("chetnoe"); end.
3
Объяснение:
В а[0] - минимальное значение в массиве.
Если а[i] меньше а[0] то делаем вот что:
1) увеличиваем с на один
2) меняем местами а[0] и а[i].
Т.е. с увеличением каждый раз, когда видим что а[0] больше а[i]
Массив такой:6, 7, 3, 8, 5, 1, 2, 0, 9, 4
Первый раз это случится с тройкой и массив станет таким:
3, 7, 6, 8, 5, 1, 2, 0, 9, 4
С станет единицей
Следующий раз с однеркой:
1, 7, 6, 8, 5, 3, 2, 0, 9, 4
И с стало двойкой
И последний раз это случится с нулем, после чего массив будет такой:0, 7, 6, 8, 5, 3, 2, 1, 9, 4
И с станет тройкой.
Надеюсь стало понятнее
k: integer;
begin
randomize;
for k := 1 to 7 do
A[k] := random(5);
write("vvedite den' nedeli: ");
readln(k);
if (k < 1 or k > 7) writeln("error");
else if ( A[k] <> 0) then writeln("segodnya urokov: ", A[k]);
else write("vyhodnoy");
end.
13) var k: real;
begin
write("vvedite chislo: ");
readln(k);
if (k > 0) then write("polozhitel'noe, ");
else if (k < 0) then write("otricatel'noe, ");
else write("nol', ");
if (k mod 1 <> 0) then write("neceloe, ");
else write("celoe, ");
if (k mod 2 <> 0) then writeln("nechetnoe");
else writeln("chetnoe");
end.