Дан массив из 10 элементов, которые вводятся с клавиатуры?

123456789qwertg 15 мар. 2020 г., 20:32:42

Var m : array [1.

10] of Integer ; i, b, s, p : Integer ;

begin Writeln('Введите массив : ') ; for i : = 1 to 10 do begin Write(i, ' : ') ; Readln(m[i]) ; end ; s : = 0 ; b : = m[1] ; p : = 1 ; for i : = 1 to 10 do begin if b < ; m[i] then b : = m[i] ; if m[i] > ; 0 then s : = s + m[i] ; if m[i] mod 2 = 0 then p : = p * m[i] ; end ; Writeln('Наибольший элемент = ', b) ; Writeln('Сумма неотрицаельных элементов = ', s) ; Writeln('Произведение четных элементов = ', p) ; ReadLn ;

end.

Marriza 15 дек. 2020 г., 00:03:17 | 5 - 9 классы

Дан массив состоящий из 6 - ти элементов : а)найти максимальный элемент массива б)найти сумму четных элементов и произведение не четных элементов?

Дан массив состоящий из 6 - ти элементов : а)найти максимальный элемент массива б)найти сумму четных элементов и произведение не четных элементов.

Slavc 2 мая 2020 г., 04:29:38 | 10 - 11 классы

Найти сумму элементов, стоящих на четных местах в массеве из 10 элементов, заданных с клавиатуры?

Найти сумму элементов, стоящих на четных местах в массеве из 10 элементов, заданных с клавиатуры.

5даг05 26 июл. 2020 г., 00:38:29 | 10 - 11 классы

Help?

Help!

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

Заполнить его с клавиатуры.

Найти : - Удвоенную сумму положительных элементов ; - Удалить все четные элементы массива.

Кубишка 18 июл. 2020 г., 12:57:53 | 10 - 11 классы

В массиве подсчитать : сумму чётных элементов?

В массиве подсчитать : сумму чётных элементов.

(Элементов массива : 7.

Массив вводится с клавиатуры).

MRcoffee 14 мар. 2020 г., 08:36:28 | 5 - 9 классы

Помогите решить задачи на паскаль?

Помогите решить задачи на паскаль.

1) Дан массив случайных чисел (количество элементов вводите с клавиатуры).

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

2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).

Найти сумму четных элементов массива.

3) Дан массив случайных чисел (количество элементов вводите с клавиатуры).

Найти максимальный элемент массива.

4) Дан массив случайных чисел (количество элементов вводите с клавиатуры).

Найти максимальный элемент массива среди элементов, кратных 3.

Ludmila0956 2 окт. 2020 г., 20:22:12 | 5 - 9 классы

Дан массив В размером 7 элементов, элементы вводятся с клавиатуры : а)найти произведение всех элементов массива б)заменить все положительные элементы на их кубы Помогите, пожалуйста, составить програм?

Дан массив В размером 7 элементов, элементы вводятся с клавиатуры : а)найти произведение всех элементов массива б)заменить все положительные элементы на их кубы Помогите, пожалуйста, составить программы, на языке Паскаль.

Egormama 9 мар. 2020 г., 20:31:59 | 5 - 9 классы

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

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

Размер произвольный.

Nadiika 31 авг. 2020 г., 05:17:20 | 5 - 9 классы

Массив А вводится с клавиатуры?

Массив А вводится с клавиатуры.

Найти сумму его элементов.

Размер произвольный.

Паскаль.

5555165 12 окт. 2020 г., 08:39:12 | 10 - 11 классы

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

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

Значение элементов вводятся с клавиатуры.

Значения могут быть как положительные так и отрицательные.

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

Результат вывести на форму.

Appland4569 19 нояб. 2020 г., 15:04:46 | 5 - 9 классы

3 ЗАДАЧИ НА ПРОГРАММИРОВАНИЕ В ПАСКАЛЬ ЗА 30 БАЛЛОВ1?

3 ЗАДАЧИ НА ПРОГРАММИРОВАНИЕ В ПАСКАЛЬ ЗА 30 БАЛЛОВ

1.

Задан массив А, состоящий из n чисел.

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

Элементы вводятся с клавиатуры.

2. Найти сумму элементов массива с четными номерами, содержащего N элементов.

Элементы вводятся с клавиатуры.

3. Дан одномерный массив, значения элементов которого вводятся с клавиатуры.

Выяснить, каких элементов больше - положительных или отрицательных и насколько.

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