Заполнить двухмерный массив 5 на 6 по формуле I*I-А*J и подсчитать количество неотрицательных элементов, включая ноль

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

Заполнить двухмерный массив 5 на 6 по формуле I*I-А*J и подсчитать количество неотрицательных элементов, включая ноль. Коэффициент А запросить с клавиатуры. Написать программу на языке Турбо Паскаль.

code: #pascal
  1. programm massiv_2d;
  2. var
  3.   i,j,kolvo:integer;
  4.   A:real;
  5.   M:array[1..5,1..6]of integer;
  6. begin
  7.     kolvo:=0;
  8.     Write('Введите А ');
  9.     Read(A);
  10.  
  11.     {заполняем массив}
  12.     for i:=1 to 5 do
  13.     begin
  14.         for j:=1 to 6 do
  15.         begin
  16.             M[i,j]:=(i*i-A*j);
  17.         end;
  18.     end;
  19.  
  20.     {считаем}
  21.     for i:=1 to 5 do
  22.     begin
  23.         for j:=1 to 6 do
  24.         begin
  25.             if M[i,j]>=0 then inc(kolvo);
  26.         end;
  27.     end;
  28.  
  29.     {вывод на экран результатов}
  30.     if k>0 then Writeln('Кол-во чисел, больших нуля '+kolvo) else
  31.         Writeln('Нету чисел, больших нуля!!!');
  32. end.
Поделиться:

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

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