Информатика написать программы: 1. дана последовательность чисел с1, с2, с18. найти произведение элементов этой последовательности до первого нулевого и сумму элементов, расположенных после него. 2. из массива a1, a2, a30 исключить максимальный элемент. желательно с пояснениями, заранее !

Var C:Array[1..18] of integer; i,p,s,k:integer;beginp:=1;for i:=1 to 18 do beginC[i]:= random(10)-5;write(C[i]:4);if C[i] = 0 then k:= 1;if k = 0 then p:= p * C[i]else s:= s + C[i];end;writeln;write('Произведение = ',p , ' Сумма = ',s);end.

var C:Array[1..30] of integer; i,max,q:integer;beginfor i:=1 to 30 do beginC[i]:= random(100)-50;write(C[i]:4);if C[i] > max then begin max:= C[i];q:=i;end;end;writeln;C[q]:= 0;for i:=1 to 30 dowrite(C[i]:4);end.