Главная
QBASIC
Pascal
Практикум
Download
Контакты
В начало | 1 2 3 4 5 6 7 8 9 10

№46Ввести одномерный числовой массив R из N элементов. Отсортировать его по возрастанию с использованием пузырьковой сортировки.
Решение

№47Ввести два одномерных числовых массива из M и N элементов, упорядоченных по возрастанию. Сформировать из элементов обоих массивов упорядоченный по возрастанию третий массив из (M + N) элементов, не используя сортировку последнего.
Решение

№48Ввести числовой одномерный массив из M x N элементов. Преобразовать его в двумерный массив (M строк, N столбцов).
Решение

№49Ввести одномерный массив из N% элементов. Удалите из него числа, кратные трем. Дополнительный массив не создавать.
Решение

№50Дан одномерный массив, упорядоченный по возрастанию. С клавиатуры вводится число. Вставить это число в массив, не нарушая упорядоченности. Последний элемент вытеснить.
Решение

№51Ввести одномерный массив из N элементов. Изменить порядок следования значений элементов на обратный от позиции BEG до позиции FIN.
Решение

№52Ввести одномерный массив из N элементов. Произвести кольцевой сдвиг его элементов на K позиций. K вводят с клавиатуры, оно может быть как положительным, так и отрицательным.
Решение

№53Ввести одномерный массив из N случайных целых чисел в диапазоне от -5 до +5. Вычислить среднее арифметическое квадратов отрицательных чисел; положительные элементы уменьшить вдвое, отрицательные заменить значениями их индексов. Вывести результирующий массив.
Решение

№54В одномерном массиве из N произвольных чисел поменять местами элементы, стоящие равноудаленно от элемента с заданным индексом K. Вывести на экран исходный и результирующий массив.
Решение

№55В двумерном массиве случайных чисел (M строк, N столбцов) определить номера столбцов, среднее арифметическое элементов которых меньше среднего арифметического элементов во всем массиве.
Решение

№56В двумерном массиве случайных чисел (M строк, N столбцов) переставить строки так, чтобы суммы их элементов возрастали.
Решение

№57В одномерном массиве из N произвольных чисел изменить порядок следования элементов на обратный на участках слева и справа от элемента с заданным индексом K. Вывести на экран исходных и результирующий массивы.
Решение

№58Сформировать матрицу 7 x 7 элементов, заполненную согласно схеме. Вывести ее на экран, развернув на 90 градусов против часовой стрелки.
181522293643
291623303744
3101724313845
4111825323946
5121926334047
6132027344148
7142128354249
Решение

№59В одномерный массив размера N (N задано: не менее 8 и не более 20) ввести натуральные числа. Создать новый массив, в который поместить только те элементы исходного массива, которые имеют с предыдущим элементом общий делитель, отличный от 1. Распечатать результирующий массив; если искомых элементов нет, вывести соответствующее сообщение.
Решение

№60Представить результат, который программа выводит на экран.

10 N = 4: DIM A (N, N)
20 FOR i = 1 TO N
30 FOR j = 1 TO N
40 IF i + j > N + 1 THEN A(i, j) = N + j ELSE A(i, j) = N - 1
50 NEXT j, i
60 FOR i = 1 TO N \ 2
70 FOR j = 1 TO N
80 SWAP A(i, j), A(N - i + 1, j)
90 NEXT j
100 PRINT A(i, N - i + 1)
110 NEXT i
120 FOR i = 1 TO N
130 PRINT
140 FOR j = 1 TO N - i
150 SWAP A(i, j), A(N - j + 1, N - i + 1)
160 PRINT A (j, i);
170 NEXT j, i
180 END

Решение

В начало | 1 2 3 4 5 6 7 8 9 10

Rambler's Top100

Hosted by uCoz