program pr;
label cyc;
const
sizeX = 4; // количество ячеек в каждой строке
sizeY = 4; // количество строк
var
matrix: array[1..sizeY, 1..sizeX] of integer;
i,k:integer;
begin
writeln('Чтение элементов массива');
for i:=1 to sizeY do for k:=1 to sizeX do readln(matrix[i,k]);
writeln('Исходный массив:');
for i:=1 to sizeY do begin
for k:=1 to sizeX do begin
write(matrix[i,k]);
end;
writeln('');
end;
writeln('Подходящие строки: ');
for i:=1 to sizeY do begin
for k:=2 to sizeX do begin
if matrix[i,k]>=matrix[i,k-1] then goto cyc;
end;
writeln(i);
cyc:
continue;
end;
end.
Т.к. файл весит 20Мбайт ,то нужно поделить его на 2,потому что время передачи мы сократили в 2 раза(со 140 до 70),то есть 20:2 =10.
Ответ:10
Назначение иформационной системы: хранение и использование документов с данными. Документы могут быть представлены на бумажных и электронных носителях информации.
<u>Ответы:</u>
1)40 байт
2)Довольно странная задача. При просмотре ответов возникает естественный вопрос: откуда взялась папка "Кино"?
При самостоятельном решении у меня вышло D:/ФАНТАСТИКА/ГОЛЛИВУД.
Однако среди ответов этого варианта нет, поэтому выбираем наиболее приближенный к найденому, а именно - вариант №1.