Меню сайта

Задача №55

Найтисумму и кол-во элементов в массиве Т после первого нулевого элемента.

uses crt-

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

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

begin-

clrscr-

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

readln(size)-

FOR i := 1 TO sizedo

begin

clrscr-

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

readln(t[i])-

end-

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

for i:=1 to size do

begin

writeln(t[i])-

end-

FOR i := 1 TO sizedo

begin

IF t[i] = 0 THEN

-num := i-

-FOR k := num + 1 TO size do

begin

summa := summa +t[k]-

end-

writeln(‘Сумма элементов после первого 0 равна ‘,summa)-

writeln(‘Количество элементов после первого 0 равна ‘,size — i)-

— halt-

-end-

-end.

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

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