Const m=5; n=6;
var
a:array[1..m,1..n] of integer;
b:array[1..m] of integer;
i,j,min:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to m do
begin
min:=a[i,1];
for j:=2 to n do
if a[i,j]<min then min:=a[i,j];
b[i]:=min;
end;
writeln('Полученный массив:');
for i:=1 to m do write(b[i]:4);
writeln;
end.
Пример:
Исходный массив:
44 30 35 16 47 3
30 15 23 40 15 46
46 11 2 3 16 40
19 17 8 22 10 25
41 23 9 47 7 36
Полученный массив:
3 15 2 8 7
Program z1;
uses GraphABC;
begin
setpencolor(clgreen);
line(30,50,60,20);
line(60,20,90,50);
line(90,50,30,50);
line(30,80,60,50);
line(60,50,90,80);
line(90,80,30,80);
line(30,110,60,80);
line(60,80,90,110);
line(90,110,30,110);
floodfill(60,40,clgreen);
floodfill(60,70,clgreen);
floodfill(60,100,clgreen);
end.
Int _tmain(int argc, _TCHAR* argv[])
{<span>
int s, rashod, ben;</span>
<span> printf("Расстояние до дачи (км): \n", s);</span><span>
printf("Расход бензина ( литров на 100 км пробега): \n", rashod);</span><span>
printf("Цена литра бензина (руб.): \n", ben);</span><span>
printf("Поездка на дачу и обратно обойдется в \n", (2*s/100)*rashod*ben);</span>
<span> return 0;
</span><span>}
s - расстояние
rashod - расход
ben - цена 1 литра</span>
1.пусть 8л-1 сосуд, 2-второй
набираем полностью 1 сосуд, переливаем в 2 и выливаем из 2 всё. В 1 ост.3 л. Переливаем 3л во 2 сосуд и набираем полностью первый. Из первого переливаем во 2 сосуд и из 2 всё выливаем. В 1 остаётся 6л. Выливаем 5л во второй сосуд и в первом остаётся 1 л.
2.набираем 2 сосуд(5 литров) и переливаем в 1 сосуд. Затем опять наливаем во 2 и переливаем в 1. Во втором останется 2л. Выливаем всё из 1 сосуда и переливаем в него 2л из 2 сосуда. Затем 2 раза повторяем действия: наливаем воды во 2 сосуд и переливаем в 1. После 2 повторения во 2 сосуде будет 1 л воды
3. 11л-1 сосуд, 2л-2сосуд.
Наливаешь в 1 сосуд 11л, затем пять раз повторяешь: переливаешь из первого сосуда во 2-ой 2л, затем выливаешь всё из 2 сосуда. В конце в первом сосуде останется 1л.