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

Задача 41.

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

program prim41;
  uses crt;
  var i,k,,r:integer;
      a:array[1..10000] of integer;
begin
  clrscr;
  randomize;
  write(' число элемен. п=');readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(45)-22;
      write(a[i], ' ');
{Проверяем на четность и считаем количество четных элементов.}
      if a[i] mod 2=0 then inc(k, 1);
    end;
  write('k= ',k);
  readkey
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru