Составить кроссворд на тему , , операционная система, , не менее 15 вопросов

Ачто за операционная система

pascalabc.net

begin

  var (m, n) : = readinteger2('количество строк и столбцов: ');

  var x : = matrrandom(m, n, -99, 99);

  writeln('массив х');

  x.println(6);

  var y : = matrrandom(m, n, -99, 99);

  writeln('массив y');

  y.println(6);

  writeln('массив результатов');

  var z : = new real[m, n];

  for var i : = 0 to m - 1 do

    for var j : = 0 to n - 1 do

      z[i,j] : = (x[i,j] + y[i,j]) / 2;

  z.println(6,1)

end.

ответ:

program laba;

{$apptype console}

uses

  sysutils,

  windows;

var

  a: array[1..15] of integer;

  i,imax,x: integer;

begin

setconsoleoutputcp(1251);

  for i: =1 to 15 do

begin

writeln('введите',i,'-й элемент');

readln(a[i]);

end;

imax: =1;

for i: =2 to 15 do

if a[i]> a[imax] then imax: =i;

x: =a[15];

writeln('максимальное число = ',a[imax],' его индекс= ',imax);

if imax=15 then write('он последний, обмена нет');

else

  begin

  x: =a[imax];

  a[imax]: =a[15];

  a[15]: =x;

  writeln('обмен максимального и последнего: ');

  for i: =1 to 15 do

  write(a[i]: 6: 3,' ');

  end;

 

readln;

end.

объяснение: