Меню сайта

Задача №61

Вывестиненулевые элементы массива Х(м) и их произведение.

uses crt-

varsize,i,pr:integer-

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

begin-

clrscr-

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

readln(size)-

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

FOR i := 1 TO sizedo

begin

readln(x[i])-

end-

pr := 1-

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

FOR i := 1 TO sizedo

begin

IF x[i] &lt-&gt- 0THEN

-begin

-writeln(x[i])- pr := pr * x[i]-

end-

end-

writeln(‘Их произведение ‘,pr)-

end.

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

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