Склавиатуры вводится 2 целых числа. сравнить их и вывести на печать квадрат большего числа.

program massive;

uses crt;

const

  m = 6;

var

  d: array [1..m] of real;

  i: integer;

  sum: real;

  indexmax: integer;

begin

    clrscr;

    randomize;

    writeln ('massive: ');

    indexmax : = 1;

    d[1] : = 10;

    d[1] : = d[1] - random(20);

    writeln (d[1]);

    for i: = 2 to m do

    begin

          d[i] : = 10.0;

          d[i] : = d[i] - random(20);

          writeln (d[i]);

          if (d[i] > d[indexmax]) then

          begin

          indexmax : = i;

          end;

    end;

    writeln ('indexmax = ', indexmax);

    sum : = 0;

    for i: = indexmax + 1 to m do

      if (d[i] < 0) then sum : = sum + d[i];

    writeln ('sum = ', sum);

    readln

end.

Внастоящее время большинство компьютеров в мире работают под той или иной версии операционной среды windows фирмы microsoft. охарактеризуем наиболее распространенные версии. windows nt (nt — . new technology) — это операционная система, а не просто графическая оболочка. она использует все возможности новейших моделей персональных компьютеров и работает без dos. windows nt — 32-разрядная ос со встроенной сетевой поддержкой и развитыми многопользовательскими средствами. она предоставляет пользователям истинную , многопроцессорную поддержку, секретность, защиту данных и многое другое. эта операционная система удобна для пользователей, работающих в рамках локальной сети, для коллективных пользователей, особенно для групп, работающих над большими проектами и обменивающихся дан.