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

Задача 48.

Найти количество элементов, больших некоторого заданного числа X в каждой строке массива (во всем массиве).

program prim25;
  uses crt;
  var a: =array[1.. 100,1..100] of integer;
      i,j,n:integer;
      k,l,x:integer;
begin
  clrscr;
  randomize;
  write('n=');readln(n);
{Задаем значение Х.}
  x:=0;
  for i:=1 to n do
    begin
      k:=0;l:=0;
      for j:=1 to n do
        begin
          a[i,j]:=random(45)-22;
          write(a[i,j]:4);
{Считаем число элементов, удовлетворяющих условию задачи.}
          if a[i,j]>x then k:=k+1 else l:=l+1
        end;
{Если находим для всего массива, то следующую строку надо убрать, а начальные значения K=0:L=0 перенести выше на одну строку.}
      write('k=',k, 'l=',l);k:=0;l:=0;;
    end;
{Печатаем число элементов, удовлетворяющих условию задачи во всем массиве.}
  write('k=',k, 'l=',l);
  readln;
end.





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