Написать эссе о праве выбора в Германии с 16 лет по плану, на фото

var

 A: array [1..40] of Integer;

 i, c: Integer;

begin

   Randomize;

   WriteLn ('Массив случайных чисел:');

   for i := 1 to 40 do begin

     A [i] := Random (10);

     Write (IntToStr (A [i]) + ' ');

   end;

   c := 0;

   for i := 1 to 40 do begin

     if (A [i] mod 2  <> 0) and (A [i] mod 3 = 0) then   // первое условие - проверка на нечетность, второе - делимость на 3

     Inc (c);

   end;

   Writeln;

   WriteLn ('Количество нечетных чисел, которые делятся на 3 = ' + IntToStr (c));

end.

var b: array of real;

i,n,ll: integer;

max,min,a: real;

begin

write('Введите длину массива: ');

readln(n);

write('Введите число a: ');

readln(a);

setlength(b,n);

writeln('Массив B: ');

for i:=0 to n-1 do

begin

b[i]:=random(3*n);

write(b[i],' ');

end;

writeln;

min:=b[0];

max:=a;

for i:=0 to n-1 do

if min>b[i] then min:=b[i]

else if max<b[i] then begin

max:=b[i];

ll:=i;

end;

writeln('Наименьший элемент массива - ',min);

writeln('Элемент, больший числа ',a,' - ',max,' - находится в ',ll+1,' месте');

end.

Можете вместо real типа данных использовать также и integer. Просто неизвестно какие данные будут использоваться во время проверки