сервис вопросов и ответовнайти сумму положительных и отрицательных элементов массива
5-9 класс|
|
Foksi
14 сент. 2013 г., 2:42:24 (10 лет назад)
Korih2
14 сент. 2013 г., 3:17:15 (10 лет назад)
var a:array[1..1000] of integer;
s,n:integer;
p:real;
k,i:byte;
begin
k:=0;
s:=0;
randomize;
writeln('кол-во элементов массива');
readln(n);
for i:=1 to n do
begin
a[i]:=random(100)-46;
write('a(',i,')=',a[i],' ');
end;
for i:=1 to n do
begin
if a[i]< 0 then s:=s+a[i];
if a[i]>0 then k:=k+a[i];
end;
writeln(' ');writeln ('Сумма положительных: ',k);
writeln ('Сумма отрицательных: ',s);
end.
Ответить
Другие вопросы из категории
Отгадайте следующие загадки, мысленно представив объект как единое целое по его отдельным признакам.
а) Без языка живет, не ест и не пьет, а говорит и поет.
б) на что ни взглянет этот глас- все на картинке передаст.
в) Выходили двенадцать молодцев, выносили пятьдесят два сокола, выпускали триста шестьдесят пять лебедей. Что это?
г) Чем кончается день? Ночь? Чем кончается лето и начинается осень?
Найдите и выведите на экран все трехзначные числа кратные 20, сумма цифр которых равна сумме цифр частного от деления их на 20. (Паскаль ABC)
Напишите программу пожалуйста!
Читайте также
1)дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
1) Удвоить все элементы массива. 2)Найти сумму элементов двух массивов одинаковой размерности. 4) Найти Минимальные элементы массива и
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива.
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
Массив В задан случайным образом а) подсчитать сумму элементов массива, меньших своего номера; б) подсчитать сумму элементов массива, стоящих на четных
местах; в) подсчитать сумму отрицательных элементов массива; г) подсчитать сумму элементов массива, больших произвольного числа К. помогите, пожалуйста
Вы находитесь на странице вопроса "найти сумму положительных и отрицательных элементов массива", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.