const
n = 100; {максимальное число элементов в массиве}
b = -32768;{константа для заливки массивов }
type
tF = array[1..n] of integer;
function l(f: tF): integer;
var
i, k: integer;
begin
k := 0;
l := n;
for i := 1 to n do
if f[i] = b then
begin
l := i - 1;
exit
end;
k := k + 1;
end;
var
i, k, p1, p2: integer;
f1, f2, f3, f4: tF;
s: string[2];
begin
{ заполним все массивы константой b }
{ если при чтении массива константа b, все элементы прочтены }
for i := 1 to n do
begin
f1[i] := b;
f2[i] := b;
f3[i] := b;
f4[i] := b;
end;
randomize;
{ f1 }
k := random(100) + 1;
write('Длина 1: ', k, ' ');
for i := 1 to k do
f1[i] := random(199) - 99; { число от -99 до 99 }
p1 := l(f1);
writeln(', вычислена длина ', p1);
s := 'f1';
{ f2 }
k := random(100) + 1;
write('Длина 2: ', k);
for i := 1 to k do
f2[i] := random(199) - 99;
p2 := l(f2);
writeln(', вычислена длина ', p2);
if p2 > p1 then
begin
p1 := p2;
s := 'f2';
end;
{ f3 }
k := random(100) + 1;
write('Длина 3: ', k, ' ');
for i := 1 to k do
f3[i] := random(199) - 99;
p2 := l(f3);
writeln(', вычислена длина ', p2);
if p2 > p1 then
begin
p1 := p2;
s := 'f3';
end;
{ f4 }
k := random(100) + 1;
write('Длина 4: ', k, ' ');
for i := 1 to k do
f4[i] := random(199) - 99;
writeln(', вычислена длина ', p2);
if p2 > p1 then
s := 'f4';
write('Самый длинный массив ', s);
end.
По горизонтали:
3.Оформление документа с применением нескольких шрифтовых наборов, методов выравнивания текста, встраивания объектов иной природы называется… 4.Слубженая программа, относящаяся к категории диспетчеров файлов. 7.Последовательность команд, которую выполняет компьютер в процессе обработки данных, называется … 9.Мельчайший элемент изображения в растровой графике. 10.Программа, предназначенная для самостоятельного создания мелодий. 12.Щелчком по этой кнопке открывается меню. 13.Программа, предназначенная для автоматизации регулярного резервного копирования наиболее ценных данных на внешний носитель. 15.Специалный модуль памяти, предназначенный для обслуживания многозадачного режима работы. 16.Невидимая для пользователя область памяти -это… обмена. 18. 640 х480; 800 х600; 1024 х768; 1152 х864; 1280 х1024-это… экрана. 19.Программа, выполняющая перекомпоновку файлов на диске т.о. что длинные файлы собираются из фрагментов.
По вертикали:
1.Временное место хранения удаленных папок и файлов. 2.Папку, из которой происходит копирование, называют… 5.Paint- это простейший графический 6.Типографская единица измерения, равная примерно 1/3 мм. 8.Смена комплекта резервных носителей.. 11.Наименшая единица хранения данных на диске. 12.Фоновое изображение на поверхности рабочего стола. 14.Крошечный файл, который привязан к программному приложению, документу, папке. 16. …- это простейший текстовый редактор, который можно использовать в качестве средства просмотра текстовых файлов. … 17.Мельчайший элемент изображения в векторной графике.
ответы.
По горизонтали: 3.Форматирование. 4.Проводник. 7.Программа. 9.Точка. 10.Звукозапись. 12.Пункт. 13.Архивация. 15.Ресурс. 16.Блокнот. 18.Разрешение. 19.Дефрагментация.
По вертикали: 1.Корзина. 2.Источник. 5.Редактор. 6.Обои. 8.Ротация. 11.Кластер 12.Пуск. 14.Ярлык. 16.Буфер. 17.Линия.
Интерфейс операционной системы Windows
var mas : array of integer;
i , n , max : integer;
begin
randomize;
Writeln('Введите n - число элементов одномерного массива ');
readln(n); setlength(mas,n); for i := 1 to n do mas[i] := random(100); max := mas[1]; for i := 1 to n do begin if max < mas[i] then max := mas[i]; end; for i := 1 to n do write(mas[i], ' '); Writeln; Writeln('max = ',max); Readln;end.