Дан массив A(N). Что больше: сумма элементов массива или максимальный элемент массива и на сколько.
10-11 класс
|
Написать программу! Спасибо)
Program enot;
const n= 5;
Var a: array [1..n] of integer;
i,max,s:integer;
begin
for i:= 1 to n do begin
read (a[i]);
s:=s+a[i];
end;
max:= a[1];
for i:= 1 to n do
if a[i]> max then max:= a[i];
if max>s then writeln('максимальный элемент массива больше суммы массива на ', max-s)
else write ('сумма массива больше макс.эл. на ', s-max);
end.
ввод массива с клавиатуры?
Другие вопросы из категории
Какое из чисел K, записанных в двоичной системе, отвечает условию N<K<M?
Выдели не присущую объекту операцию:
1. селектор
2. итератор
3. деструктор
4. цетектор
5. конструктор
1.Сколько Кбайт информации содержится в сообщении размером 2 Мбайта?
2.Сколько байт информации содержится в сообщении размером 16 бит?
3.Сколько бит информации содержится в сообщении размером 4 байта?
4.Сколько Мбайт информации содержится в сообщении размером 3072 Кбайт?
5.Сколько байт информации содержится в сообщении размером четверть мегабайта?
Читайте также
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
элементов, занимающих четные места в массиве.
3)сформировать новый массив K [10] из элемаентов с 1 по 10 по формуле: K[i]=V[i]*2.
4)определить максимальный элемент массива K, его порядковый номер.
нужна программа, написанная, на языке програмирования Pascal.
массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
-Удвоенную сумму положительных элементов;
-Удалить все четные элементы массива.