Константы в Pascal.

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

Строковые константы в Pascal.

В качестве значения строковой константы может выступать любая последовательность символов. Эта последовательность заключается в апострофы. Строковая константа отличается от символьной константы тем, что здесь в качестве значения константы можно ...

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

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

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

Тип данных Integer.

Тип INTEGER (целый). Этот тип представляет множество целых чисел диапазона от -32768 до 32767. В памяти ЭВМ  под целое число отводится два байта (16 бит).

Линейные процессы вычислений.

Простейший алгоритм представляет собой цепочку блоков (операторов) от начального блока до конечного. Каждый блок должен быть выполнен один единственный раз. Это линейный алгоритм. Он отражает ...

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

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




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.


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

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

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


Комментарии  

 
+5 # like 12.02.2013 10:29
:cry:
Ответить
 
 
+1 # like 12.02.2013 10:29
спосибо :lol:
Ответить
 
 
+4 # Анна 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
:-) :-) ;-)
Ответить
 
 
0 # мария 20.03.2017 06:54
напишите программу вычисляющую среднее арифметическое по массиву целых чисел до (50)
если это срееднее арифметическое ≥ 4.5 , выдать сообщения "Пять за четверть ".
Ответить
 

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

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

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