Эльфы и Гномы, круг сужается
Эльфы или Гномы, круг увеличивается
Эльфы или Гномы или Орки, ещё больше
В Г Б А
Если фразу "Практическая работа номер 1" нужно было перевести в двоичный код, то вот: 1101000010011111110100011000000011010000101100001101000010111010110100011000001011010000101110001101000110000111110100001011010111010001100000011101000010111010110100001011000011010001100011110010000011010001100000001101000010110000110100001011000111010000101111101101000110000010110100001011000000100000110100001011110111010000101111101101000010111100110100001011010111010001100000000010000000110001
Количество цифр: 400
Program n2;
const n=10;
var a: array [1..n] of integer;
i,k,j,temp: integer;
begin
randomize;
writeln('исходный массив');
k:=0;
for i:=1 to n do
begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
writeln('полученный массив: ');
for i:=1 to n do
for j:=i to n do
if a[j]>a[i] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp
end;
for i:=1 to n do begin
write(a[i],' ');
if (a[i]<0) and (i mod 2=0) then k:=k+1;
end;
writeln;
write('кол-во отрицательных элементов на четных местах: ',k);
end.
Const
N = 10; //Задаём размерность массива
Var
A: array[1..N] of integer; //Объявляем массив
i, B: integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i] := random(2*N+1)-N; //Заполняем массив случайными числами
Write(' ',A[i]); //и выводим его на экран
End;
WriteLn;
B := A[N]; //В переменной B будет находится искомое число
For i:= 1 to N-1 do
if (A[i] > 0)and(A[i] < B) then
B := A[i];
WriteLn('Наименьшее положитиельное чилсо: ',B);
End.
то что параметр цикла не в заголовке это не ошибка, но настоятельная рекомендация, а ошибка у вас в том, что вы не выделили память под динамический массив, a:=new integer[n] (или SetLength(a,n)). И, поскольку индексация элементов в динамических массивах начинается с 0, то в цикле For верхняя граница параметра i должна быть на 1 меньше n, то есть For i:=0 to n-1.
