1)
var max, min, i, n : integer;
a : array [1..255] of integer;
BEGIN
// ввод массива
read(n);
for i := 1 to n do
read(a[i]);
// то, что в блок-схеме
max := a[1]; min := a[1];
for i := 2 to n do begin
if a[i] < min then
min := a[i]
else if a[i] > max then
max := a[i];
end;
write(min, ' ', max);
END.
2) Если k - это любое число >= 1, то значения элементов массива сдвинутся на 1 влево. К примеру, если k = 1, то a[1] = 12, a[2] = 5, a[3] = 8 и так далее
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var ijv:=a.ElementsWithIndexes.Select(x->(x[0],x[1],abs(x[2])))
.MaxBy(x->x[2]);
for var i:=ijv[0] to n-2 do a.SwapRows(i,i+1);
for var j:=ijv[1] to n-2 do a.SwapCols(j,j+1);
SetLength(a,n-1,n-1); a.Println(4)
end.
<u>Пример</u>
Количество строк/столбцов в матрице: 5
87 -5 -38 -9 57
31 66 57 -25 40
11 66 99 -79 91
12 95 93 27 -97
33 -94 14 19 39
--------------------
87 -5 -9 57
31 66 -25 40
12 95 27 -97
33 -94 19 39
<span>Сервер (server) – компьютер, предоставляющий свои ресурсы клиентам сети. Различают следующие виды серверов:</span>
файловый сервер предназначен для хранения и предоставления файлов, с которыми работают пользователи;сервер баз данных обеспечивает доступ клиентам к общим базам данных;сервер приложений служит для предоставления пользователям прикладных программ;сервер печати обеспечивает печать на общем печатном устройстве со всех рабочих мест;Web-сервер обеспечивает предоставление информации через сеть Internet;почтовый сервер обеспечивает циркуляцию электронной почты, как внутри организации, так и во внешней сети.
Неразрывный пробел Ctrl+Shift+пробел
перевод строки, пробел
PROGRAM LGJ;
var
m,n:real;
begin
writeln('введите длинну ткани');
readln(m);
writeln('введите отрезаюмую длинну');
readln(n);
if m<n then
writeln('материала не хватает!');
<span>end.</span>