Умножение, деление, сложение, вычитание вещественных чисел в Pascal.

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

Логические операции с целыми числами.

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

Операции умножения и сложения в Pascal.

В данном уроке мы рассмотрим операции умножения и сложения в Pascal. Умножение в Pascal обозначается знаком «*», а сложение - знаком «+».

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

Циклы с параметром. Оператор FOR.

Эти циклы организуются в программах, где заранее известно число повторений. При этом повторное выполнение сопровождается изменением управляющего параметра (переменной цикла).

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

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

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

 Подсчет количества четных элементов в массиве.



program massiv7;
uses crt;
const N=10;
type x=array [1..N] of integer;
var a:x;
i:integer;
k:integer;
begin
clrscr;
randomize;
for i:=1 to N do
begin
a[i]:= +10+random (91);
write (A[i]:5)
end;
writeln;
k:=0;
for i:=1 to N do
if a[i] mod 2=0 then
begin
k:=k+1
end;
writeln (‘Количество четных элементов =  ’,k:5);
readln
end.

В строке №7 записываем переменную для хранения количества четных элементов

В строке №13 заполняем массив случайными числами в диапазоне от +10 до +100 (включая 100).

В строке №17 переменной для хранения количества четных чисел присваиваем первоначальное значение равное 0.

В строке №19 записываем условие: если значение элемента массива (т.е. если сгенерированное число) делиться на 2 без остатка (т.е. остаток от целочисленного деления равен 0),  то прибавляем к переменной K единицу (т.е. при наличии четного числа «K» увеличивается на 1).

kolichestvo chetnihkh ehlementov massiva

kolichestvo chetnihkh ehlementov massiva.


Предыдущая статья : Вычисление суммы положительных элементов массива.

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

Следующая статья : Определение наличия в массиве отрицательных чисел. 


Комментарии  

 
+12 # Юлия 09.01.2013 15:35
Спасибо огромное, очень помогло)
Ответить
 
 
+1 # Богдан 28.11.2015 13:53
В 21-ой строке нету ";".
Ответить
 

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

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

   ГлавнаяПаскальМассивы в ПаскальПодсчет количества четных элементов в массиве.