Var ar:array of integer;
max,i,n,j:integer;
begin;
max:=-2147483648; //нижняя граница integer
writeln('Введите размерность массива:'); //массив всегда приятнее
readln(n);
setlength(ar,n+1); //задали размерность динамического массива
for i:=1 to n do
begin;
write('Введите ',i, ' элемент массива:');
readln(ar[i]);
end;
for i:=1 to n do
for j:=1 to n do
if max<ar[i]*ar[j] then max:=ar[i]*ar[j];
writeln('Result:',max);
<span>end.</span>
Const Sz = 100; // Размер массива
var
b,a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
k, i: integer;
begin
k:=0;
N := 20;
writeln ('chisla');
for i:=1 to N do begin
a[i] := Random(60)-30;
write (a[i],' ');
end;
writeln;
writeln ('---------------------------------------------');
for i:=1 to n do begin
if ((a[i]<=5) and (a[i]>0)) then
begin
k:=k+1;
write (i,' ');
end;
end;
if (k=0) then
write('no');
end.
8 литров в 8-ми литровой кастрюле, 0 литров в 5-ти литровой банке, 0 литров в 3-х литровой банке (8-0-0)
1) Из 8-ми литровой кастрюли наливаем в 5-ти литровую банку (полную). (3-5-0)
2) Из 5-ти литровой банки наливаем в 3-х литровую банку (полную). (3-2-3)
3) Из 3-х литровой банки переливаем в 8-ми литровую кастрюлю. (6-2-0)
4) Из 5-ти литровой банки переливаем в 3-х литровую банку. (6-0-2)
5) Из 8-ми литровой кастрюли наливаем в 5-ти литровую банку (полную). (1-5-2)
6) Из 5-ти литровой банки наливаем в 3-х литровое (до полной). (1-4-3)
7) Из 3-х литровой банки переливаем в 8-ми литровую кастрюлю. (4-4-0)
Воттак вродибы
удачи!!!!!!!
Различают следующие типы меню:
по исполнению:
текстовое,
графическое;
по функциям:
главное меню приложения;
всплывающее меню;
контекстное меню;
системное меню.