Составьте программу вычисления в одномерном массиве минимального элемента и его номера.

Uses crt; const n=10; var a: array [1..n] of integer;     x,y,min: integer; begin       for x: =1 to n do       begin           write('a[',x,']: ');           readln(a[x]);       end;       min: =a[1];       y: =1;       for x: =1 to n do       if a[x]< min then       begin           min: =a[x];           y: =x;       end;       writeln('min[',y,']: ',min); end.

1) var a: array [1..100] of longint; i,j,k,n: longint; begin readln(n); for i: =1 to n do readln(a[i]); k: =a[1]; j: =1; for i: =1 to n do   if a[i]< k then begin k: =a[i]; j: =i; end; writeln(k, '   ',j); end.

Const   maxn = 100; // максимальное кол-во элементов массива var   n, i: longint;   middle, sum, sum2: real; // может быть нецелым числом   a: array[1..maxn] of real; begin   write('введите количество элементов массива: ');   readln(n);   sum : = 0; // считаем сумму всех элементов, чтобы найти среднее арифметическое   write('введите элементы массива через пробел: ');   for i : = 1 to n do begin       read(a[i]);       sum : = sum + a[i];   end;   middle : = sum / n; // вычисляем среднее арифметическое   writeln('среднее арифметическое = ', middle);   sum2 : = 0; // считаем сумму элеметов, меньших среднего арифметического   for i : = 1 to n do     if a[i] < middle then       sum2 : = sum2 + a[i];   writeln('сумма элементов, меньших среднего арифметического = ', sum2); end.

а) 1999

б) 978

в) 1147

в римской системе счисления i обозначает 1, v обозначает 5, x — 10, l — 50, c — 100, d — 500, m — 1000. например, число 3 в римской системе счисления будет обозначаться как iii.   однако не все так просто, и она не является полностью непозиционной системой счисления, потому что в римской системе счисления есть дополнительное правило, которое влияет на величину, которую обозначает цифра, в зависимости от ее положения.   правило это запрещает употреблении одной и той же цифры более 3 раз подряд, поэтому три это iii, а четыре это уже iv, и i(1), стоящая перед большей цифрой v(5), обозначает вычитание, то есть фактически равна -1.