Var a: array [1..10] of Integer;
i, min, sum: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(50);
writeln('[', i, '] => ', a[i]);
end;
min := a[1];
for i := 2 to 10 do
if (min > a[i]) then min := a[i];
i := 1;
while ((i <= 10) and (a[i] <> min)) do
begin
sum := sum + a[i];
inc(i);
end;
writeln(sum);
<span>end.</span>
Раздели предметы на группы по три если есть лишние предметы то выбери в начале игры первый ход и закрась лишний предмет
есле нет лишних предметов то выбери второй ход
дополняй ход другого игрока до четырех предметов
256=2^8 8 бит - один символ
32=2^5 5 бит один символ
8 : 5= 1,6 раз первый текст длиннее второго
Минимум 5 раз необходимо выполнить операцию
Ответ:
F:\ШКОЛА\7КЛАСС\тест.doc
Объяснение:
<Диск>:\<Папки начиная с первого уровня разделённые "\">\<Имя файла>.<Расширение файла>