 Помогите решить задачу |
Начальные контакты ТОЛЬКО через личку!!
  |
| Gars |
 22.05.2007 1:01
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация:  0   |
Помогите пожалуйста решить задачу, сам я в этом не понимаю, вот она:
Дан массив из 10 элементов, найти произведение всех не нулевых элементов ЗЫ: Зарание спасибо! |
   |
 
|
| мисс_граффити |
22.05.2007 1:37
Сообщение
#2
|
 просто человек  Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
Не поняла прикола...
Ну ладно, раз проснулось желание заплатить - можешь кинуть денежку на счет форума. Счета форума -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
|
|
|
| Слон |
13.06.2007 12:19
Сообщение
#3
|
|
Гость |
Цитата(Gars @ 22.05.2007 1:01)  Помогите пожалуйста решить задачу, сам я в этом не понимаю, вот она: Дан массив из 10 элементов, найти произведение всех не нулевых элементов ЗЫ: Зарание спасибо! Если pascal, то
var
a:array [1..99] of integer;
i, prod, len:integer;
begin
len:=0;
while not eoln do
begin
len:= len + 1;
read (a[len]);
end;
prod:=1;
for i:=1 to len do
begin
if a[i] <> 0 then
prod:= prod * a[i];
end;
writeln ('Произведение равно', prod);
end.
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 16.07.2025 22:33 |