Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.

Мы уже знаем, какие существуют функции для целых переменных. Это – нахождение модуля числа (Функция Abc), а также возведение числа в квадрат (Функция Sqr). В этом уроке мы рассмотрим функции, применяемые к дробным числам. Это функции Sqr - квадрат ...

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

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

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

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

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

Многомерные массивы.

Индексы имеют еще одно свойство — чем больше объем массива, тем менее эффективна с ним работа, поэтому часто используют массивы массивов, то есть с двумя, тремя и более индексами для идентификации ...

Массивы. Регулярные типы.

В простых типах данных каждое данное имеет свое название (идентификатор). В этом разделе вводится структурная взаимосвязь между данными, хранимыми в оперативной памяти путем организации массива, ...

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

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



program massiv8;
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]:= -100+random (201);
write (A[i]:5)
end;
writeln;
k:=0;
for i:=1 to N do
if a[i] <0 then="" li="">
inc (k);
if k>0 then
begin
writeln ('В массиве есть отрицательные элементы');
writeln ('Количество отрицательных элементов = ',k:5);
end
else
writeln ('В массиве нет отрицательных элементов');
readln
end.


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

Строка №13-№14 генерируем случайные числа и выводи их на экран.

В строке №17 присваиваем «K» первоначальное значение равное 0.

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

В строке №21 записываем условие: если K>0 (т.е. если количество отрицательных чисел больше 0), тогда выводим на экран 2 сообщения (строка №23 и №24). В обратном случае (строка №26), выводим другое сообщение (строка №27).

nakhozhdenie otricateljnihkh ehlementov massiva

nakhozhdenie otricateljnihkh ehlementov massiva.


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

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

Следующая статья : Нахождение номера отрицательного элемента в массиве.


Комментарии  

 
+4 # WebGirl 26.12.2012 12:45
В 19ой строке есть ошибка:
19. if a
после слова then, по-моему, ничего не надо писать, кроме следующей строчки (inc(k)).
Или это задумка автора?
Ответить
 

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

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