В-1-Проверка для короля (тест 1) Оставшиеся посылки: 100 Проверка для короля (тест 1) Эта задача с открытыми тестами. Ее решением является набор ответов, а не програма программирования. Тесты указаны в самом условии, от вас требуется лишь ввести ответ тестирующую систему. Однажды к королю Го приехал посол из соседней страны Луа. Посол прибыл на прием с целью обсуди союз двух государств. Он принес в подарок четное число мешков N, доверху набитых золотыми монетами предупредил, что в одном из мешков находятся только фальшивые монеты. Каждая настоящая золотая ровно 1 грамм, а фальшивая — больше 1 грамма. Все фальшивые монеты весят одинаковое целое число предложил королю определить в каком именно мешке находятся фальшивые монеты. Если король укажет получит все мешки с настоящими монетами. В противном случае ему достанутся только фальшивые монеты. Король Го учился в лучшем математическом институте, поэтому для решения данной задачи он решил взят мешка с порядковым номером Х ровно Х монет (то есть из 1-го мешка 1 монету, из 2-го - 2 монеты и этого он произвел следующие измерения: 1. Взвесил все выбранные монеты с 1 по 5 мешок вместе. В результате он получил, что их вес равен А гра- 2. Взвесил все выбранные монеты с N/2 +1 по N мешок вместе. В результате он получил что их вес В грамм
Цифрами обозначены строки необходимые в соответсвующей программе, остальные - общие. Ну и переменные смотри
var a : array [1..200] of longint; p,max : integer; n,i,j : integer; begin readln (n); p := 1; // 1 max := 0; // 2 3 for i := 1 to n do begin readln (a[i]); p := p * a[i]; // 1 if a[i] > max then //2 3 begin //2 3 max := a[i]; // 2 3 j := i; //3 end; // 2 3 end; writeln (p); //1 writeln (max); //2 writeln (j); //3 end.
1) В цикле Repeat Until идет проверка, что число введено в диапазоне [0..200} var i,n:integer; a:longint; p:real; begin p:=1; Repeat readln(n); Until (n>=0)and(n<=200); for i:=1 to n do begin readln(a); p:=p*a; end; writeln(p); end.
2) var i,n:integer; a,max:longint; begin Repeat readln(n); Until (n>=0)and(n<=200); for i:=1 to n do begin readln(a); if a>max then max:=a; end; writeln(max); end. 3) var i,n:integer; a,min:longint; begin Repeat readln(n); Until (n>=0)and(n<=200); for i:=1 to n do begin readln(a); if a<min then min:=a; end; writeln(min); end.
var
a : array [1..200] of longint;
p,max : integer;
n,i,j : integer;
begin
readln (n);
p := 1; // 1
max := 0; // 2 3
for i := 1 to n do
begin
readln (a[i]);
p := p * a[i]; // 1
if a[i] > max then //2 3
begin //2 3
max := a[i]; // 2 3
j := i; //3
end; // 2 3
end;
writeln (p); //1
writeln (max); //2
writeln (j); //3
end.
var
i,n:integer;
a:longint;
p:real;
begin
p:=1;
Repeat
readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
begin
readln(a);
p:=p*a;
end;
writeln(p);
end.
2)
var
i,n:integer;
a,max:longint;
begin
Repeat
readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
begin
readln(a);
if a>max then
max:=a;
end;
writeln(max);
end.
3)
var
i,n:integer;
a,min:longint;
begin
Repeat
readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
begin
readln(a);
if a<min then
min:=a;
end;
writeln(min);
end.