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>
Ребенок-Кукла-Форма
Событие-текст-отношение с другими объектами
Явление природы-макет-вид
Процесс создания объекта-план действий-алгоритм
Здание-рисунок-элементный состав
<span>Вот так, мы это делали.</span>
Используется время одних суток.
var h1,min1,h2,min2,h,min,m:integer;
begin
write('h1, m1: ');
readln(h1,min1);
write('h2, m2: ');
readln(h2,min2);
m:=(h2*60+min2)-(h1*60+min1);
h:=m div 60;
min:=m mod 60;
writeln('h = ',h,' min = ',min);
end.
Пример:
h1, m1: 1 20
h2, m2: 3 15
h = 1 min = 55
<u>1. Средства функционального программирования</u>
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
var s:=ReadlnString('>');
s.Batch(s.Length div 5).Skip(2).Take(1).Aggregate((c1,c2)->c1+c2).Println('')
end.
<u><em>Тестовое решение</em></u>
> retmutsike
ut
<u>2. Еще один вариант (на слайсах)</u>
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
var s:=ReadlnString('>');
var m:=s.Length div 5;
s[2*m+1:3*m+1].Println('')
end.
<u>3. Стандартные средства Паскаля</u>
var
s:string;
m:integer;
begin
Write('>'); Readln(s);
m:=s.Length div 5;
Writeln(Copy(s,2*m+1,m))
end.