Меню сайта

Задача №54

Напечататьсумму, произведение и номера полож элементов после последнего нулевого элемента.

uses crt-

vari,size,num,summa,pr,k:integer-

x:array[1..10000]of integer-

n:array[1..10000]of integer-

begin-

clrscr-

writeln(‘Введите размер массива’)-

readln(size)-

FOR i := 1 TO sizedo

begin

clrscr-

writeln(‘Введите элементы массива’)-

readln(x[i])-

end-

writeln(‘Введенный массив’)-

FOR i := 1 TO sizedo

begin

writeln(x[i])-

IF x[i] = 0 THENnum := i-

end-

if num=0 then

begin

writeln(‘Нулевые элементы не найдены’)-

halt-

end-

pr := 1-

FOR i := num + 1 TOsize do

begin

IF x[i] &gt- 0 THEN

-begin

-summa := summa + x[i]- pr := pr * x[i]- k := k+ 1- n[k] := i-

end-

end-

writeln(‘Номера положительных элементов после последнего0’)-

FOR i := k TO sizedo

begin

writeln(n[i])-

end-

writeln(‘Сумма положительных элементов послепоследнего 0 равна ‘, summa)-

writeln(‘Произведение положительных элементов после последнего0 равна ‘, pr)-

end.

Категория: Массивы | Дата: 09.12.12

Меню раздела
Блок