найти номер первого нулевого элемента массива a1,a2...a25 и произведение элемент...

October 2021 1 16 Report

найти номер первого нулевого элемента массива a1,a2...a25 и произведение элементов расположенных до него, а среди элементов, расположенных правее первого нулевого , найти максимальный элемент

Answers & Comments

MikhOm Var A: array [1..25] of integer;
i, p, max : integer;
BEGIN
for i:=1 to 25 do
read(A[i]);
p:=1;
i:=1;
while A[i]<>0 do begin
p:=p*A[i];
i:=i+1;
end;
writeln('Первый нулевой элемент ', i);
writeln('Произведение элементов до нулевого ', p);
max:=A[i+1];
for i:=i+1 to 25 do
if A[i]>max then max:=A[i];
writeln('Максимальный элемент после нулевого ', max);
END.

0 votes Thanks 1

Answers & Comments

pascal abc1 skolko naturalnyh chiselmenshih 1000ne delyatsya ni na 5 ni na

v massive d1 d2d35 najti summu chisel raspolozhennyh na nechetnyh mestah

najti nomer pervogo nulevogo elementa massiva x1 x2 x20 i summu elementov

dan massiv s1 s2 s15 sostoyashij iz nulej i edinic podschitat kolichestvo

рекомендуемые вопросы

Helpful Links

Helpful Social