сервис вопросов и ответовPascal Дан массив вещественных чисел. Найти сумму и количество отрицательных с нечетными номерами элементов, расположенных в первой половине
10-11 класс|
|
массива (включая середину)
Ограничения:
-число элементов в матрице не более 10-ти
Порядок ввода исходных данных:
-число элементов в массиве
-элементы массива
Порядок вывода результатов:
-значение суммы с точностью до одного знака после запятой, ограничить ширину поля вывода результата 7-ю позициями, количество таких элементов или сообщение "Элементы не найдены"
Viktoriyacbmo
10 февр. 2017 г., 8:59:30 (7 лет назад)
Ddilya98
10 февр. 2017 г., 10:54:37 (7 лет назад)
var a:array[1..10]of integer;
n,i,k:integer;
s:real;
begin
readln(n);
for i:=1 to n do readln(a[i]);
i:=1;
while i<=n do begin
if a[i]<0 then begin inc(k); s:=s+a[i]; end;
i:=i+2;
end;
if k<>0 then writeln(s:0:7,' ',k) else writeln('Элементы не найдены
Ответить
Другие вопросы из категории
Читайте также
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Написать программу в free pascal дан массив из 10элеметов найти
А)сумму элементов массива
Б)количество отрицательных элеметов
В)вывести номера элементов массива кратных 3
1.Дан целочисленный массив X(N). Найти сумму четных элементов массива .Если эта сумма больше заданного числа Z , то у элементов , расположенных на
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
на языке паскаль 1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел среди 10 элементов вещественного
массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
Вы находитесь на странице вопроса "Pascal Дан массив вещественных чисел. Найти сумму и количество отрицательных с нечетными номерами элементов, расположенных в первой половине", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.