Задано масивA -64-35—12-0-17-121—28-0-95-2—4-31-27—144-33-60—48-0—56-65Побудувати блок-схему алгоритмунаписати Amin елементу масиву А. Вивести на

задано масивA (-64;35;-12;0;17;121;-28;0;95;2;-4;31;27;-144;33;60;-48;0;-56;65)

Побудувати блок-схему алгоритму

написати Amin елементу масиву А.Вивести на екран масив А та значення Аmin

  • uses crt;
    const a: array[1..20] of integer=(-64,35,-12,0,17,121,-28,0,95,2,-4,31,27,-144,33,60,-48,0,-56,65);
    var min,i:integer;
    begin
    min:=a[1];
    for i:=1 to 20 do
    begin
    if min > a[i+1] then min:= a[i+1];
    writeln(a[i]);
    end;
    writeln(min);
    readln;
    end.