Написать программу на С + + или паскаль?

Zaza66648 11 февр. 2020 г., 07:27:16

{ PascalABC.

Net }

const nn = 100 ;

var a : array[1.

Nn] of integer ; n : integer ;

procedure aInit(p, q : integer) ;

{ Инициализирует массив случайными целыми значениями из интервала [p ; q] }

var i, k : integer ;

begin Randomize ; k : = q - p + 1 ; for i : = 1 to n do a[i] : = Random(k) + p

end ;

procedure aOut(k : integer) ;

{ Выводит в строку значения эементов массива, отводя элементу k позиций }

var i : integer ;

begin for i : = 1 to n do Write(a[i] : k) ; Writeln

end ;

function aMax() : integer ;

{ Возвращает максимальное значение элемента в массиве } var i, m : integer ;

begin m : = a[1] ; for i : = 2 to n do if m< ; a[i] then m : = a[i] ; aMax : = m

end ;

function SumBeforeLastPositive() : integer ;

{ Возвращает сумму элементов массива, расположенных до последнего положительного элемента }

var i, j, s : integer ; flag : boolean ;

begin i : = n ; flag : = false ; while (not flag) and (i> ; = 1) do begin flag : = (a[i]< ; = 0) ; if not flag then Dec(i) end ; s : = 0 ; for j : = 1 to i - 1 do s : = s + a[j] ; SumBeforeLastPositive : = s

end ;

procedure aShrink(pa, pb : integer) ;

{

Процедура сжимает массив, удаляя из него элементы,

модуль которых находится в интервале [pa ; pb].

Освободившийся элементы заполняются нулями.

}

var i, j, k : integer ; flag : boolean ;

begin k : = 0 ; i : = 1 ; while i< ; = n do if a[i] in [pa.

Pb] then begin if k = 0 then k : = i - 1 ; j : = i + 1 ; flag : = false ; while (not flag) and (j< ; = n) do begin flag : = not (a[j] in [pa.

Pb]) ; if not flag then Inc(j) ; end ; if flag then begin Inc(k) ; a[k] : = a[j] ; i : = j + 1 end else i : = n + 1 end else begin Inc(k) ; a[k] : = a[i] ; Inc(i) end ; for i : = k + 1 to n do a[i] : = 0

end ;

var p, q, k, b, c : integer ;

begin Write('Укажите количество членов в массиве : ') ; Read(n) ; Write('Укажите интервал значений элементов массива : ') ; Read(p, q) ; Write('Укажите интервал исключаемых элементов массива : ') ; Read(b, c) ; Write('Укажите количество позиций для вывода значений элемента : ') ; Read(k) ; aInit(p, q) ; Write('Исходный массив') ; aOut(k) ; Writeln('Значение максимального элемента равно ', aMax()) ; Writeln('Сумма до последнего положительного равна ', SumBeforeLastPositive()) ; Writeln('Сжатый массив') ; aShrink(b, c) ; aOut(k)

end.

Тестовое решение :

Укажите количество членов в массиве : 15

Укажите интервал значений элементов массива : - 6 9

Укажите интервал исключаемых элементов массива : - 2 3

Укажите количество позиций для вывода значений элемента : 3

Исходный массив 7 7 7 - 1 5 5 - 5 6 0 - 1 3 2 - 4 1 8

Значение максимального элемента равно 8

Сумма до последнего положительного равна 35

Сжатый массив 7 7 7 5 5 - 5 6 - 4 8 0 0 0 0 0 0.

Ssv1973 23 апр. 2020 г., 13:58:22 | 10 - 11 классы

Задача 1 В одномерном массиве , состоящем из n вещественных элементов , вычислить ; 1) номер минимального элемента ; 2) сумму элементов массива ; Преобразовать массив таким образом , чтобы сначала рас?

Задача 1 В одномерном массиве , состоящем из n вещественных элементов , вычислить ; 1) номер минимального элемента ; 2) сумму элементов массива ; Преобразовать массив таким образом , чтобы сначала располагались все элементы , модуль которых не превышает 1 , а потом - все остальные .

Задача 2 В одномерном массиве , состоящем из n вещественных элементов , вычислить ; !

) минимальный по модулю элемент массива ; 2) сумму модулей элементов массива , расположенных после первого элемента , равного нулю .

Преобразовать массив таким образом , чтобы в первой его половине располагались элементы в четных позивиях , а во второй половине - элементы , стоявшие в нечетных позициях.

Zarolik 23 авг. 2020 г., 08:39:14 | 5 - 9 классы

Написать программу, позволяющую для заданного одномерного массива А из n вещественных или целых элементов реализовать обработку массива?

Написать программу, позволяющую для заданного одномерного массива А из n вещественных или целых элементов реализовать обработку массива.

Длина массива N задается пользователем как константное выражение.

Исходные данные задать вручную или с помощью генератора случайных чисел, учитывая формат элементов массива А.

Тип результата определяется из контекста.

- Вычислить количество отрицательных элементов массива ; - сумму модулей элементов массива, расположенных после максимального элемента.

Настя2005 3 янв. 2020 г., 06:37:14 | 5 - 9 классы

Дан одномерный массив, состоящий из вещественных элементов?

Дан одномерный массив, состоящий из вещественных элементов.

Найти сумму элементов массива, расположенных до последнего положительного элемента.

Qleb 12 июн. 2020 г., 21:57:19 | 5 - 9 классы

Дан массив состоящий из 30 элементов?

Дан массив состоящий из 30 элементов.

Найти в массиве максимальный элемент, вывести его значение и номер на экран.

Отрицательный элемент массива заменить на равные по модулю положительные элементы.

Lisaweta 28 апр. 2020 г., 00:54:56 | 10 - 11 классы

В одномерном массиве, состоящем из n вещественных элементов, вычислить : 1) номер минимального элемента массива?

В одномерном массиве, состоящем из n вещественных элементов, вычислить : 1) номер минимального элемента массива.

Buzkop 1 июл. 2020 г., 17:07:45 | 10 - 11 классы

Написать программу, которая запрашивает массив из N элементов и увеличивает все элементы массива на максимальный элемент?

Написать программу, которая запрашивает массив из N элементов и увеличивает все элементы массива на максимальный элемент.

Протестировать программу на массивах размерностью 8 и 10 элементов.

Budnik170678gmailcom 23 янв. 2020 г., 11:41:00 | 5 - 9 классы

Помогите пожалуйста с задачей в паскале В одномерном массиве, состоящем из N элементов, вычислить : 1) количество элементов массива, больших С 2) произведение элементов массива, расположенных после ма?

Помогите пожалуйста с задачей в паскале В одномерном массиве, состоящем из N элементов, вычислить : 1) количество элементов массива, больших С 2) произведение элементов массива, расположенных после максимального по модулю элемента 3) преобразовать массив таким образом, чтобы сначала размещались все отрицательные элементе, а потом - все положительные (0 считать положительным).

Катюшащенок 21 нояб. 2020 г., 01:23:06 | 10 - 11 классы

Помогите написать программу В одномерном массиве, состоящем из 15 вещественных элементов (значения элементов массива задать случайными числами из интервала [ - 10 ; 10]), вычислить произведение элемен?

Помогите написать программу В одномерном массиве, состоящем из 15 вещественных элементов (значения элементов массива задать случайными числами из интервала [ - 10 ; 10]), вычислить произведение элементов массива, расположенных между максимальным и минимальным элементами.

Сформировать из этих элементов новый массив.

Azamatova 11 янв. 2020 г., 18:17:13 | 10 - 11 классы

В одномерном массиве, состоящем из n целых случайных элементов из диапазона от - 10 до 10 вычислите : 1) среднее арифметическое отрицательных нечетных элементов массива , 2) сумму элементов массива, р?

В одномерном массиве, состоящем из n целых случайных элементов из диапазона от - 10 до 10 вычислите : 1) среднее арифметическое отрицательных нечетных элементов массива , 2) сумму элементов массива, расположенных за вторым нечетным положительным элементом.

22021977 29 дек. 2020 г., 06:05:16 | 5 - 9 классы

Написать программу по нахождению максимального элемента если элементы массива заполнены случайными числами в интервале от - 50 до 50?

Написать программу по нахождению максимального элемента если элементы массива заполнены случайными числами в интервале от - 50 до 50.

(Паскаль).