Заполнить массив из 12 элементов случайными целыми числами от -100 до 100 и подсчитать количество неотрицательных значений, включая ноль

Категория: Delphi/Pascal
2011-08-31 22:23:50

Заполнить массив из 12 элементов случайными целыми числами от -100 до 100 и подсчитать количество неотрицательных значений, включая ноль. Написать программу на языке Турбо Паскаль.

code: #pascal
  1. program Massiv;
  2. var i,kolvo:integer;
  3. a:array[1..12]of integer;
  4. begin
  5.   Randomize();
  6.   kolvo:=0;
  7.   {заполняем массив значениями}
  8.   for i:=1 to 12 do
  9.   begin
  10.     a[i]:=Random(100)-Random(100);
  11.   end;
  12.   {ищем кол-во значений больших нуля}
  13.  
  14.   for i:=1 to 12 do
  15.   begin
  16.     {при нахождении очередного большего нуля значения kolvo увеличиваем на 1}
  17.     if a[i]>=0 then inc(kolvo);
  18.   end;
  19.  
  20.   {вывод на экран результатов}
  21.   if k>0 then Writeln('Кол-во чисел, больших нуля '+kolvo) else
  22.     Writeln('Нету чисел, больших нуля!!!');
  23. end.
Поделиться:

Похожие статьи:

теги: консольное приложение, студенты, одномерный массив, массив, случайные числа