Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
Информация-двигатель всего. По этому поводу пара примеров: ученый изобрел некое лекарство от всех болезней на планете. Чтобы сохранить это лекарство, он записывает формулу на носитель. Формула-инфомация. 2 пример: разговариваешь ты с другом. Друг тебе что-то говорит, пусть даже несущественное. То, что друг тебе сказал-информация. как видно, информация окружает нас всегда и везде. Без неё жизнь человека невозможна. Даже если человек просто видит, как летит птица в небе, это тоже информация о её полете и кто же там летит.
Ответ:
Кодировку utf-8 поставил?
Объяснение:
Const n=50;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do begin
a[i]:=random (21)-10;
if a[i]=0 then k:=k+1;
write (a[i]:4);
end;
writeln ('кол-во нулей =',k);
end.
Можно. Человек может потерять зрение, слух, которые являются органами чувств.