Ответ останется неизменным
Я хотел бы рассказать об архитекторе. Сначала разберемся, что такое архитектура. Архитектура- это это строительное исскуство, умение проектировать и создавать города, дома, улицы, площади, парки и другое.
Архитектор- это человек умеющий строить и создавать здания, города и другое. Архитектор, это хорошая профессия. Ведь если бы не было такой профессии, мы жили бы на улицах, мокли под дождем, мерзли от холода.
Var p: array[1..12] of integer;
begin
var min: integer;
var max: integer;
randomize;
for var i := 1 to 12 do p[i] := random(100);
min := p[1];
max := p[1];
for var i:= 1 to 12 do if p[i] < min then min := p[i];
for var i:= 1 to 12 do if p[i] > max then max := p[i];
writeln(max/min);
end.
Лида немецкий рояль
маша испанский гитара
женя француский виолончель
катя английский скрипка
Все проверялось с помощью программы(код ниже):
3 16
8 13
13 10
11 14
16 11
______
9 5
7 9
12 6
10 10
15 7
13 11
11 15
16 12
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var x:= ;
var y:= ;
Println(x,y);
while x<16 do
begin
if x>y then begin x:=x-2; y:=y+4; end else begin x:=x+5; y:=y-3; end;
Println(x,y);
end;
end.