|
|
Другие темы раздела | |
Pascal ABC Найти произведение индексов наибольшего элемента массива
https://www.cyberforum.ru/ pascalabc/ thread755643.html 2. Решить задачу: в линейном массиве есть одинаковые элементы. Найти произведение индексов наибольшего элемента массива. |
1. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже Pascal ABC Program Ex_4; Type LinMass = Array Of Integer; Var I, N : Byte; K : Integer; A : LinMass; Begin Randomize; Write('Сколько элементов в массиве? '); ReadLn(N); Write('Введите заданное число K: '); ReadLn(K); For I := 1 To N Do Begin A := -100 + Random(201); Write(A : 6) End; WriteLn; For I := N DownTo 1 Do |
Pascal ABC Заполнить квадратную матрицу порядка N по следующему правилу 3. Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: по периметру записывается число, совпадающее с порядком матрицы, а все другие элементы равны нулю. https://www.cyberforum.ru/ pascalabc/ thread755640.html |
Pascal ABC Найти максимальный элемент среди отрицательных элементов массива
https://www.cyberforum.ru/ pascalabc/ thread755639.html 2. Решить задачу: в вещественном массиве найти максимальный элемент среди его отрицательных элементов |
Pascal ABC 1. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже Program Example_Kr4; Type Vector = Array Of Integer; Var A : Vector; I, J, N : Word; Begin Randomize; Write('Сколько элементов в массиве? '); ReadLn(N); N := N - 1; For I := 0 To N Do Begin A := -100 + Random(201); Write(A:6) End; WriteLn; I := 0; While I <= N Do |
Pascal ABC Создать третий массив того же размера, каждый элемент которого равен сумме соответствующих элементов первых двух
https://www.cyberforum.ru/ pascalabc/ thread755635.html 3. Решить задачу: даны два двумерных массива одинакового размера. Создать третий массив того же размера, каждый элемент которого равен сумме соответствующих элементов первых двух. |
Pascal ABC В массиве найти два элемента, среднее арифметическое которых ближе всего к X 2. Решить задачу: даны действительное число X и массив A(N). В массиве найти два элемента, среднее арифметическое которых ближе всего к X. https://www.cyberforum.ru/ pascalabc/ thread755634.html |
1. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже Pascal ABC Program Kr_N_4; Var A : Array Of Integer; I, K, P: 1..20; C : Integer; Begin Randomize; For I := 1 To 20 Do Begin A := -10 + Random(21); Write(A, ' ') End; WriteLn; I := 1; While (A<=0) And (I<=N) Do I := I+1; If A>0 Then K := I Else K := 0; I := N; While (A>=0) And (I>0) Do I := I-1; |
Pascal ABC Двумерный массив. Заполнить по правилу
https://www.cyberforum.ru/ pascalabc/ thread755587.html 3. Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: элементы равны остатку от деления суммы индексов на заданное число K. помогите решить,спасибо |
Pascal ABC Одномерный массив. Поменять порядок следования элементов 2. Решить задачу: не используя дополнительных массивов, поменять порядок следования элементов линейного массива на обратный. Например, для заданного массива –1, 12, 0, 1, 14 получается ответ 14, 1, 0, 12, –1. помогите решить,спасибо https://www.cyberforum.ru/ pascalabc/ thread755584.html |
Pascal ABC Массивы. Сформулировать условие задачи по решению 1. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже. Program Kr_4_z1; Type Vector = Array Of Real; Var I, K, M, N : Word; A : Vector; Begin Randomize; Write('Сколько элементов в массиве? '); ReadLn(N); Write('Введите заданное число K (меньше числа элементов в массиве): '); ReadLn(K); For I := 1 To N Do Begin A := -100 + Random * 200.1;... |
Pascal ABC Присвоить целой переменной d первую цифру из дробной части положительного вещественного числа х
https://www.cyberforum.ru/ pascalabc/ thread755543.html присвоить целой переменной d первую цифру из дробной части положительного вещественного числа х |
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
|
||||||
08.01.2013, 14:47 | 0 | |||||
Получить квадратную матрицу по правилу - Pascal ABC - Ответ 396814808.01.2013, 14:47. Показов 1550. Ответов 1
Метки (Все метки)
Сообщение было отмечено Памирыч как решение
Решение
Вернуться к обсуждению: Получить квадратную матрицу по правилу Pascal ABC
1
|
08.01.2013, 14:47 | |
Готовые ответы и решения:
1
Получить квадратную матрицу по правилу Получить квадратную матрицу по правилу Получить квадратную матрицу по правилу Получить квадратную матрицу по правилу |
08.01.2013, 14:47 | |
08.01.2013, 14:47 | |
Помогаю со студенческими работами здесь
0
Получить квадратную матрицу по правилу Получить квадратную матрицу по правилу Получить квадратную матрицу по правилу Получить квадратную матрицу по правилу |