(Pascal или Delphi) В заданном массиве A(N) положительные элементы уменьшить вдвое, а отрицательные заменить на значения их индексов?

Ygorokhova01 30 сент. 2020 г., 16:03:44

Var a : array of real ;

n, an : integer ;

begin

randomize ;

writeln('Введите размерность массива') ;

readln(n) ;

n : = n + 1 ;

setlength(a, n) ;

for an : = 1 to n - 1 do

begin ;

a[an] : = random(10) ;

if a[an]> ; 0 then a[an] : = a[an] / 2 else a[an] : = an ;

write (a[an], ', ') ;

end ;

end.

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

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

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

2001алёська 10 нояб. 2020 г., 07:43:53 | 10 - 11 классы

Заменить значения всех четных элементов главной диагонали массива на нулевые?

Заменить значения всех четных элементов главной диагонали массива на нулевые.

Pascal.

Saalaus 17 апр. 2020 г., 21:09:47 | 10 - 11 классы

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

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

В Delphi.

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

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

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

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

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

Zalaltdinova150 25 янв. 2020 г., 15:22:12 | 10 - 11 классы

Помогите пожалуйста срочно?

Помогите пожалуйста срочно.

Pascal 1.

Проверить, что в массиве все элементы положительны.

2. Проверить, что все элементы массива равны друг другу.

3. Проверить, есть ли в массиве элемент, равный заданному значению.

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

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

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

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

Mmp7272 2 сент. 2020 г., 23:19:54 | 10 - 11 классы

Все четные положительные элементы целочисленного массива уменьшить вдвое, все нечетные положительные увеличить на 2, а у всех остальных поменять знак?

Все четные положительные элементы целочисленного массива уменьшить вдвое, все нечетные положительные увеличить на 2, а у всех остальных поменять знак.

Лрапо 28 мар. 2020 г., 15:23:38 | 10 - 11 классы

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

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

Положительные элементы массива заменить на их сумму, а отрицательные элементы уменьшить на минимальный.

Aizhan111 12 янв. 2020 г., 12:19:45 | 10 - 11 классы

Что писать дальше?

Что писать дальше?

В массиве М (15) заменить все отрицательные элементы на их положительные значения.

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

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

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

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