Otan, Mektep сөздерін ASCII кодтау кестесінің көмегімен кодта​

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

если массив состоит из 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;  

вроде бы 100*100=10000 бит=1250 байта

майор - артиллерист капитан - летчик лейтенант - связист старшина - минометчик сержант - сапер ефрейтор - танкист