Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
Пожаловаться
- 23.05.2018 21:14
- Информатика
- remove_red_eye 5625
- thumb_up 40
Ответы и объяснения 1
Program n1;
const
n = 11;
var
a: array[1..n] of integer;
mins: array[1..3] of integer;
i, j, idx, S: integer;
first: boolean;
begin
randomize;
S:=1;
for i:=1 to n do a[i]:=random(71)-31;
for j:=1 to 3 do begin
first:=true;
for i:=1 to n do
if first or (a[i]
idx:=i;
first:=false;
end;
a[idx]:=maxint;
end;
for i:=1 to 3 do S:=S*mins[i];
writeln(S);
end.
const
n = 11;
var
a: array[1..n] of integer;
mins: array[1..3] of integer;
i, j, idx, S: integer;
first: boolean;
begin
randomize;
S:=1;
for i:=1 to n do a[i]:=random(71)-31;
for j:=1 to 3 do begin
first:=true;
for i:=1 to n do
if first or (a[i]
idx:=i;
first:=false;
end;
a[idx]:=maxint;
end;
for i:=1 to 3 do S:=S*mins[i];
writeln(S);
end.
Пожаловаться
- 24.05.2018 06:20
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы