На малюнку зображено групи для форматування Шрифт електронних таблиць та Вирівнювання вкладки основне. Якою цифрою позначено шрифт

рождения 30.05.95

300

если массив состоит из 10 элементов то код программы:

const

  n=10;  

var

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

  i,min: integer;  

begin

for i: =1 to n do  read(a[i]);     {вводишь заданный массив}

min: =32767;

for i: =1 to n do

  if a[i]< min then min: =a[i];

write(min);

end;  

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.