Составьте программу удаления максимального элемента массива с(20)

программа генерирует масив и присваевает значение 0 самому большому значению в массиве.

 

program d1varc: array[1..20] of integer; i,z: integer; beginrandomize; for i: =1 to 20 dobeginc[i]: =random(50); end; z: =c[1]; for i: =1 to 20 dobeginif c[i]> z then z: =c[i]; end; c[z]: =0; end.

Type     mas = array [1..50] of integer; var     x,y : mas;     s1,k1,s2,k2 : integer;     s,k : integer; //если вещественные, а не целые заменить на real(integer) procedure ma (var x,y : mas);   var       i : integer;   begin     for i : = 1 to 50 do       begin       x[i] : = random(50);       y[i]: =random(75);         end;     end; procedure sk (var s,k : integer; a : mas);   var       i : integer;     begin       s : = 0; k : = 0;     for i : = 1 to 50 do        if a[i] > 0 then       begin         s : = s + a[i];         k : = k +1;       end;     end;   begin randomize; ma(x,y); sk (s,k,x); s1 : = s; k1 : = k; sk (s,k,y); s2 : = s; k2 : = k; //вывод по желанию end.    

1)    var     a ,i,min: integer; begin min : = 30000;   i : = 0;   while i < > 12 do   begin     readln(a);     if (a< min) and (a mod 2 = 0) then     min : = a;     i : = i +1;   end; writeln (min); end. 2)   var    a ,i,max: integer; begin max : = 0;     i : = 0;   while i < > 12 do  begin    readln(a);     if (a> max) and (a mod 10 = 2) then    max : = a;     i : = i +1;   end; writeln (max); end.