Question

СРОЧНО ПОЖАЛУЙСТА 35 БАЛЛОВ!!!!!!!!!!

Answer 1

Ответ:

uses crt;

var size,i,pr:integer;

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

begin;

clrscr;

writeln('Введите размер массива');

readln(size);

writeln('Введите элементы массива');

FOR i := 1 TO size do

begin

readln(x[i]);

end;

pr := 1;

writeln('Ненулевые элементы массива');

FOR i := 1 TO size do

begin

IF x[i] <> 0 THEN

begin

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

end;

end;

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

end.