1) Дан массив A(n)?

Saygidax220med 28 мар. 2020 г., 15:23:42

Const n = 10 ;

var a : array[1.

N] of integer ;

i, s, min : integer ;

begin

writeln('Исходный массив : ') ;

for i : = 1 to n do

begin

a[i] : = random(21) - 10 ;

write(a[i] : 4) ;

end ;

writeln ;

s : = 0 ;

min : = a[1] ;

for i : = 1 to n do

begin

if a[i]> ; 0 then s : = s + a[i] ;

if a[i]< ; min then min : = a[i] ;

end ;

writeln('s = ', s, ' min = ', min) ;

for i : = 1 to n do

if a[i]> ; 0 then a[i] : = s else if a[i]< ; 0 then a[i] : = a[i] - min ;

writeln('Измененный массив : ') ;

for i : = 1 to n do write(a[i] : 4) ;

writeln ;

end.

Пример :

Исходный массив : 9 - 3 - 5 7 1 5 - 6 9 - 8 7

s = 38 min = - 8

Измененный массив : 38 5 3 38 38 38 2 38 0 38.

Valerynyashagerl 16 нояб. 2020 г., 06:17:01 | 10 - 11 классы

1. В одномерном массиве произвольных чисел А(10) положительные элементы уменьшить в двое, а отрицательные элементы заменить на значения их индексов?

1. В одномерном массиве произвольных чисел А(10) положительные элементы уменьшить в двое, а отрицательные элементы заменить на значения их индексов.

Plombirka10 17 нояб. 2020 г., 18:38:13 | 10 - 11 классы

Ввести массив A(n) ?

Ввести массив A(n) .

Если в массиве не менее двух отрицательных элементов , то уменьшить отрицательные элементы массива на 2 , иначе найти номер первого минимального элемента массива.

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

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

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

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

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

Таантя 26 сент. 2020 г., 19:41:16 | 5 - 9 классы

1. Дан одномерный массив из N элементов?

1. Дан одномерный массив из N элементов.

Заменить в нем значение макс и мин элемента на сумму всех элементов массива 2.

Дан одномерный массив из Н элементов.

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

Grooooyl 2 сент. 2020 г., 04:57:55 | 10 - 11 классы

Задан массив из 10 целых чисел?

Задан массив из 10 целых чисел.

Замените все положительные элементы данного массива его максимальным элементом.

Fgjhkkhg 4 февр. 2020 г., 17:16:13 | 10 - 11 классы

С + + одномерный массив из 15 элементов нужно посчитать сумму положительных элементов массива и произведение отрицательных элементов и узнать что больше сумма или произведение?

С + + одномерный массив из 15 элементов нужно посчитать сумму положительных элементов массива и произведение отрицательных элементов и узнать что больше сумма или произведение.

Kristina1009 9 дек. 2020 г., 11:37:10 | 5 - 9 классы

Задан массив из 7 целых чисел?

Задан массив из 7 целых чисел.

Заменить все положительные элементы данного массива на его максимальный элемент.

ZxDenxz225 4 февр. 2020 г., 10:24:08 | 10 - 11 классы

Дан массив целых чисел из 17 элементов?

Дан массив целых чисел из 17 элементов.

Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов.

Tamiktlekov 1 авг. 2020 г., 09:24:08 | 10 - 11 классы

Дан массив А(n)?

Дан массив А(n).

Уменьшить все его элементы на минимальный элемент массива.

Ellinka21 21 мар. 2020 г., 23:25:03 | 10 - 11 классы

Дан числовой массив А состоящий из n элементов если отношение числа положительных элементов к числу отрицательных более 2, то все отрицательные элементы этого массива замените на 1, а положительные ум?

Дан числовой массив А состоящий из n элементов если отношение числа положительных элементов к числу отрицательных более 2, то все отрицательные элементы этого массива замените на 1, а положительные умножьте на максимальный элемент.