сервис вопросов и ответовДан одномерный целый массив на 10 элементов . Посчитать сумму отрицательных и положительных чисел
5-9 класс|
|
Ksenia0kurlovich
12 окт. 2013 г., 22:25:56 (10 лет назад)
Bli
13 окт. 2013 г., 1:11:29 (10 лет назад)
program test;
const N = 10;
var sump,sumo,i:integer;
m:array [1..n] of integer;
beginfor i:=1 to n do
readln(m[i]);// мы заполняем массив числами
for i:=1 to n do
begin
if m[i]>0 then sump:=sump+m[i];
if m[i]<0 then sumo:=sumo+m[i];
end;
writeln('Сумма положительных:',sump);
writeln('Сумма отрицательных:',sumo);
end.
Elenks73
13 окт. 2013 г., 2:05:26 (10 лет назад)
uses crt;
var mas: array [1..10] of integer;
x,sum1,sum2: integer;
begin
sum1:=0;
sum2:=0;
for x:=1 to 10 do begin
mas[x]:=random(21)-10;
write(mas[x]:4);
if mas[x]>0 then sum1:=sum1+mas[x];
if mas[x]<0 then sum2:=sum2+mas[x];
end;
writeln;
writeln('Сумма отрицательных чисел: ',sum2);
writeln('Сумма положительных чисел: ',sum1);
end.
Ответить
Другие вопросы из категории
Ответить название носителей информации работающих на магнитном принципе записи
а) блю рэй диск
б) жесткий диск
в) кассета для стримера
г) юсби flash драйвер
студент набрал реферат состоящий из 20 страниц.на каждой странице 50 строк по 60 симвалов в каждой. какой объём в килобайтах занимал этот реферат на
диске?мощность компьютерного алфавита 256 симвалов
Каждый школьник ежедневно отдыхает в каникулы, выходные и праздничные дни. Во все оставшиеся дни школьнику положено учится. В соответствии с действующими
на территории Российской Федерации нормативными правовыми актами нерабочими праздничными днями считается 1-8 января, 23 февраля, 8 марта, 1 мая, 9 мая, 12 июня, 4 ноября. Если нерабочий день приходится на выходные, то предоставляется дополнительный нерабочий день.
На основании имеющейся информации заполните таблицу.
Читайте также
1) Дан одномерный массив из 12 элементов. Составить программу заполняющую массив целыми числами в интервале -20 до 15 2)Требуется
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный
решить через паскаль через массивы)) 1.Дан одномерный массив из 10 элементов. Заменить все большие 7 члены массива числом 7. Найти количество
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
(Паскаль)2.Заполнить с клавиатуры массив из 10 элементов. Если
минимальный элемент находится в первой
половине массива увеличить каждый четный элемент массива в два раза, в противном случае массив
оставить без изменения. Вывести новый
массив на экран в виде строки.
1. Дан массив А из 10 элементов, которые заполняются случайным образом, числам от 0 100. Выведите массив на экран и найдите максимальный элемент массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
Вы находитесь на странице вопроса "Дан одномерный целый массив на 10 элементов . Посчитать сумму отрицательных и положительных чисел", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.