Меню сайта

Задача №56

Напечататьсумму отрицательных элементов массива А после первого нулевого элемента.

uses crt-

vari,size,num,summa:integer-

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

label 1-

begin-

clrscr-

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

readln(size)-

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

FOR i := 1 TO sizedo

begin

readln(a[i])-

end-

FOR i := 1 TO sizedo

begin

IF a[i] = 0 THEN

begin

num := i- GOTO 1-

end-

end-

1:

FOR i := num + 1 TOsize do

begin

IF a[i] &lt- 0 THENsumma := summa + a[i]-

end-

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

end.

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

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