Элементы массива А[i], состоящего из 20 элементов, получить по формуле 2*i^2-12*i+20 Написать программу, которая может: 1 вывести на экран все элемент

Элементы массива А[i], состоящего из 20 элементов, получить по формуле 2*i^2-12*i+20 Написать программу, которая может: 1) вывести на экран все элементы получившегося массива; 2) найти минимальный и максимальный элементы; 3) вывести на экран элементы массива в обратном порядке.

  • var
    a: array[1..20] of integer;
    i, max, min: integer;
    begin
    min := 1000;
    for i := 1 to 20 do begin
    a[i] := 2 * (i * i) - (12 * i) + 20;
    write(a[i], ' ');
    if(a[i] < min) then min := a[i];
    if(a[i] > max) then max := a[i];
    end;

    writeln('Min: ', min, ' Max: ', max);

    end.