Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 42.

Подсчитать количество отрицательных и неотрицательных элементов массива, заданного датчиком случайных чисел.

program prim2;
  uses crt;
  var a: array [1..10000] of integer;
      i,k,n,l:integer;
begin
  randomize;
  clrscr;
  write('чucлo элементов n=');readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(45)-22;
      write(a[i],' ');
{Сравниваем с нулем и считаем неотрицательные и отрицательные элементы.}
      if a[i]>=0 then k:=k+1 else
      l:=l+1;
    end;
  writeln;
  writeln(' нeompuц. = ', k, ' отриц.= ', l);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100