Использование Var, Integer, Readln.

Процедура Readln используется не только для задержки экрана. Ее основная задача - ввод данных с клавиатуры. В этой статье мы научимся вводить числа с клавиатуры, и потом выводить их на экран. Для этого нам будет необходимо познакомиться с разделом ...

Функции Pred, Succ в Pascal.

В данном уроке мы рассмотрим функции, применяемые к типу CHAR. Функция Pred возвращает в качестве значения предшествующий символ, а функция Succ возвращает последующий символ.

Ветвления в Pascal.

Ветвления в Паскаль позволяют выполнять действия не поочередно, как мы делали в предыдущих программах, а в зависимости от каких - либо условий. Для этого в языке программирования Pascal предусмотрены различные условные операторы. В данном уроке мы ...

Циклы и массивы

Вложенные итерационные циклы.

Под вложенным итерационным циклом понимают такую алгоритмическую структуру, при которой в тело одного итерационного цикла включен другой итерационный цикл. Другими словами, любая составная ...

Подпрограммы, определенные пользователем.

Технология программирования с использованием подпрограмм предусматривает разбиение программ на логически связанные, но функционально-замкнутые компоненты, имеющие свое имя, что дает следующие ...

Напишем программу, которая вычисляет сумму положительных элементов в массиве.

 Вычисление суммы положительных элементов массива.




program massiv6;
uses crt;
const N=10;
type x=array [1..N] of integer;
var a:x;
i:integer;
s:integer;
begin
clrscr;
randomize;
for i:=1 to N do
begin
a[i]:= -100+random(201);
write (A[i]:5)
end;
writeln;
s:=0;
for i:=1 to N do
if a[i]>0 then
begin
s:=s+a[i]
end;
writeln (‘Сумма положительных элементов =  ’,s:5);
readln
end.



В строке №7 переменная «S» – для хранения суммы.

В строке №13 генерируем 10 различных чисел в диапазоне от – 100 до + 100.

В строке №14 выводим эти числа на экран.

В строке №17 обнуляем переменную «S»

В строке 19 задаем условие: если значение элемента массива (т.е. если сгенерированное число) больше 0, тогда в строке №21 прибавляем к сумме это число. Таким образом, после выполнения цикла, все положительные числа должны прибавиться к общей сумме.

summa polozhiteljnihkh ehlementov massiva

summa polozhiteljnihkh ehlementov massiva.


Предыдущая статья : Нахождение максимального элемента массива.

Оглавление : Уроки Паскаль.

Следующая статья : Подсчет количества четных элементов в массиве.


Комментарии  

 
+3 # like 12.02.2013 10:29
:cry:
Ответить
 
 
+1 # like 12.02.2013 10:29
спосибо :lol:
Ответить
 
 
+3 # Анна 04.03.2013 17:47
Написать текс программы для следующих задач: 1. Сформировать массив М(15) ДСЧ (-10, 15). Ввести и вывести элементы массива в столбик. Для элементов массива, кратных 3 найти сумму квадратов, для отрицательных элементов найти половину произведения. 2. Сформировать массив А(4,5) из блока данных. Для элементов массива с нечетным номером строк найти среднее арифметическое, для положительных элементов найти удвоенную сумму.,
Ответить
 
 
-1 # анхеликобр письказав 23.12.2014 11:44
8)
Ответить
 
 
0 # Катюша 24.01.2015 07:07
Спасиибо!) :lol:
Ответить
 
 
0 # нефтяник 18.04.2015 06:29
;-) спасибо
Ответить
 
 
0 # Макс 28.09.2015 18:39
спасибо вы очень помогли
:D :D :D :lol: :lol: :lol:
Ответить
 
 
+2 # Вам 07.03.2016 11:43
:-)
Ответить
 
 
+2 # не щз 13.06.2016 14:01
:-) :-) ;-)
Ответить
 

Добавить комментарий

Защитный код
Обновить

   ГлавнаяПаскальМассивы в Паскаль