Тип данных Boolean. Значения True, False в Pascal.

Мы рассмотрели с Вами целый тип данных (integer), вещественный тип (real), символьный (char). В этом уроке мы рассмотрим тип данных, который имеет большое значение в программировании. Логический типBoolean. Одной из особенностей этого типа данных ...

Функции Copy, Pos, процедуры Delete, Insert.

Функция Copy позволяет копировать из строки часть символов. Функция имеет 3 параметра. Copy (st, index, count). St-строка из которой копируют, Index-номер символа, с которого начинается копирование, Count-количество символов, которое будет ...

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

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

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

Сортировка простым включением и простым выбором.

Сортировка простым включением.
Пример 33. Методом простого включения упорядочить (отсортировать) в порядке возрастания массив из 8 целых чисел (44, 55,12,42, 94, 18, 06, 67).

Разветвляющийся вычислительный процесс.

Если вычислительный процесс зависит от определенных условий и реализуется по одному из нескольких заранее предусмотренных направлений, он называется разветвляющимся вычислительным процессом, а каждое ...

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

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



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-ой строке нету ";".
 
   ГлавнаяПаскальМассивы в ПаскальПодсчет количества четных элементов в массиве.