Вопрос школьника
Установите соответствие между записанными на языке Паскаль фрагментами программ обработки одномерного числового массива и результатами их работы.
Ответ от учителя
1. Программа 1:
var
arr: array[1..10] of integer;
i, sum: integer;
begin
sum := 0;
for i := 1 to 10 do
begin
readln(arr[i]);
sum := sum + arr[i];
end;
writeln(‘Сумма элементов массива: ‘, sum);
end.
Результат: программа запрашивает у пользователя 10 целочисленных значений и вычисляет их сумму. Результат выводится на экран.
2. Программа 2:
var
arr: array[1..10] of integer;
i, max: integer;
begin
max := -1000;
for i := 1 to 10 do
begin
readln(arr[i]);
if arr[i] > max then
max := arr[i];
end;
writeln(‘Максимальный элемент массива: ‘, max);
end.
Результат: программа запрашивает у пользователя 10 целочисленных значений и находит максимальное значение в массиве. Результат выводится на экран.
3. Программа 3:
var
arr: array[1..10] of integer;
i, j, temp: integer;
begin
for i := 1 to 10 do
readln(arr[i]);
for i := 1 to 9 do
for j := i + 1 to 10 do
if arr[i] > arr[j] then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
writeln(‘Отсортированный массив:’);
for i := 1 to 10 do
write(arr[i], ‘ ‘);
end.
Результат: программа запрашивает у пользователя 10 целочисленных значений и сортирует их по возрастанию. Отсортированный массив выводится на экран.
4. Программа 4:
var
arr: array[1..10] of integer;
i, j, temp: integer;
begin
for i := 1 to 10 do
readln(arr[i]);
for i := 1 to 9 do
for j := i + 1 to 10 do
if arr[i] < arr[j] then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
writeln('Отсортированный массив:');
for i := 1 to 10 do
write(arr[i], ' ');
end.
Результат: программа запрашивает у пользователя 10 целочисленных значений и сортирует их по убыванию. Отсортированный массив выводится на экран.
5. Программа 5:
var
arr: array[1..10] of integer;
i, j, temp: integer;
begin
for i := 1 to 10 do
readln(arr[i]);
for i := 1 to 9 do
for j := i + 1 to 10 do
if abs(arr[i]) > abs(arr[j]) then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
writeln(‘Отсортированный массив по модулю:’);
for i := 1 to 10 do
write(arr[i], ‘ ‘);
end.
Результат: программа запрашивает у пользователя 10 целочисленных значений и сортирует их по возрастанию модуля. Отсортированный массив выводится на экран.
