Ушакова1902
?>

Дайте определение объекта и модели Приведите примеры​

Информатика

Ответы

dianakryukova00
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;

procedure OutLightGreen(n:integer);
begin
  var OldColor:=FontColor;
  SetFontColor(clLightGreen);
  Write(n:5);
  SetFontColor(OldColor)
end;

begin
  var a:=MatrixRandom(10,14,-180,320);
  var m:=ReadInteger('n=');
  Writeln;
  SetFontColor(clWhite);
  Font.Style:=fsBold; Font.Name:='Courier';
  Brush.Color:=clBlack; Window.Clear(clBlack);
  var k:=0;
  for var i:=0 to 9 do begin
    for var j:=0 to 13 do
      if a[i,j]>m then begin
        Inc(k); OutLightGreen(a[i,j]) end
      else Write(a[i,j]:5);
    Writeln
    end;
  SetFontColor(clRed);
  Writeln('Количество элементов равно ',k)
end.

Дана матрица 10x14, заданная случайными числами на интервале [-180; 320]. подсчитать количество элем
Дана матрица 10x14, заданная случайными числами на интервале [-180; 320]. подсчитать количество элем

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дайте определение объекта и модели Приведите примеры​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

nzagrebin363
skachmin
Yelena_Gennadevna
tany821
VEZZDEXOD73
olyaartemenko
БеляковаСтаниславовна
praskovya17
m79857860146895
qwert28027170
ЕлизаветаВладимирович
Владимир
Vasilii1891
Бражинскене_Алексей
kryukovaem