Задан массив из N действительных чисел?

Sharen77 20 июн. 2020 г., 02:09:00

Const n = 100 ;

var i, k_max, max, neg_max : integer ; a : array[1.

N] of integer ;

begin for i : = 1 to n do begin a[i] : = random(100) - 50 ; write(a[i], ' ') ; end ; writeln() ; max : = a[1] ; k_max : = 1 ; neg_max : = 0 ; for i : = 1 to n do begin if a[i] > ; max then begin max : = a[i] ; k_max : = 1 ; end ; if a[i] = max then k_max : = k_max + 1 ; if (a[i] < ; 0) and (abs(a[i]) > ; abs(neg_max)) then neg_max : = a[i] ; end ; writeln('Max : ', max, ' k = ', k_max) ; writeln('Positive : ', max) ; writeln('Negative : ', neg_max) ;

end.

Een929 11 июн. 2020 г., 12:23:29 | 10 - 11 классы

Паскаль?

Паскаль.

Вычислить разность максимального среди элементов, имеющих четные значения, и максимального среди элементов, имеющих нечетные значения, в заданном целочисленном массиве из 30 положительных элементов (в предположении, что в массиве есть и четные, и нечетные элементы).

Potseluyko7a 1 авг. 2020 г., 11:50:52 | 5 - 9 классы

Определить максимальное значение среди положительных элементов из N введенных?

Определить максимальное значение среди положительных элементов из N введенных.

Настя631прдлвптррии 2 июн. 2020 г., 15:30:58 | 5 - 9 классы

1) Удвоить все элементы массива?

1) Удвоить все элементы массива.

2)Найти сумму элементов двух массивов одинаковой размерности.

4) Найти Минимальные элементы массива и его индекс.

5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива 7) Определить количество максимальных элементов массива P.

S Ребят, все в паскале.

Заранее спасибо = *.

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

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

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

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

Vika26082 4 апр. 2020 г., 16:57:47 | 5 - 9 классы

Написать программу на языке с + +дан массив вещественных чисел?

Написать программу на языке с + +

дан массив вещественных чисел.

Среди них есть равные.

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

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

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

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

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

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

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

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

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

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

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

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

Ladysvutoslava 19 мар. 2020 г., 19:15:16 | 5 - 9 классы

Полное Решение пожалуйста?

Полное Решение пожалуйста!

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

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

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

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

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

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

DREALD 8 мар. 2020 г., 18:09:53 | 5 - 9 классы

Заполнить массив из 15 элементов случайных целых чисел из диапазона [ - 15 ; + 17]?

Заполнить массив из 15 элементов случайных целых чисел из диапазона [ - 15 ; + 17].

Вывести его на экран.

Определить количество четных элементов.

В этом же массиве найти максимальный отрицательный Элемент.

Выполнить работу в free pascal.

213rfe 2 сент. 2020 г., 15:06:18 | 5 - 9 классы

Решить в с + +задан массив Z(n) целых чисел?

Решить в с + +

задан массив Z(n) целых чисел.

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

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

Упорядочить массив по убыванию модулей.