сервис вопросов и ответов.Составить программу для подсчёта суммы положительных элементов массива
10-11 класс|
|
Msaak11
20 янв. 2014 г., 5:31:27 (10 лет назад)
Emelka
20 янв. 2014 г., 8:11:39 (10 лет назад)
const n=10;
var a:array[1..n] of integer;
sum,i:integer;
begin
sum:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]>0 then sum:=sum+a[i];
end;
writeln(sum);
end.
Ответить
Другие вопросы из категории
Решить задачу в паскале
Если A^2 < B^2,вычисления закончить если A^2=B^2(отпечатать текст "A^2=B^2") если A^2 >B^2 , вычислить значение функции Y=sinx+0,12 где x изменяется на интервале от 1 до 3
с шагом 0.2.Подсчитать и отпечатать количество отрицательных значений функции.
какая из предложенных команд MS - DOS позволяет присвоить буквенное обозначение каталогу и обращаться к нему как к виртуальному диску? варианты ответов:
a) Mkdir б) Path в) Subst г) Tree очень срочно надо
Читайте также
дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтобы:
a) массив состоял из 15 элементов вещественного типа;
b) значения элементов массива должны меняться в интервале от 0 до 5;
c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма
Program massiv;
const n=10;
Var a: array [1..n] of integer;
s,i integer;
Begin
writeln (‘ исходный массив.‘);
For i:= 1 to n do
begin
a [ i] := random (10);
write (‘a[‘i'] =', a[i], '');
end;
s:=0;
For i:= 1 to n do
s:= s+a[i];
Writeln (‘ сумма всех элементов массива S=‘, s);
end.
составить постановку, алгоритм и в pascale программу, подсчитывающую сумму положительных элементов массива Z из 11 чисел.Значение элементов массива
рассчитать по формуле tgG, где G номер элемента массива
составить программу 1)найти сумму всех элементов массива (1до10) random. 2)сформировать массив из положительных и отрицательных элементов
от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.
1. Составить программу для нахождения наибольшего числа из трех чисел.
2. Составить программу для упорядоченное двух элементов по убыванию.
1.Дан целочисленный массив X(N). Найти сумму четных элементов массива .Если эта сумма больше заданного числа Z , то у элементов , расположенных на
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
Вы находитесь на странице вопроса ".Составить программу для подсчёта суммы положительных элементов массива", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.