Найти произведение элементов кратных заданному числу

@Рамиль17 · Регистрация: 19.04.2011

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста решить две задачки по информатике. Только недавно начал проходить массивы, пока туплю по страшному.
1) найти произведение элементов кратных заданному числу;
2) вывести номера четных элементов массивов.

@Small Lamer · 03.05.2011, 21:18

1)

Pascal

var a:array[1..100] of longint;
    n,k,i,s:longint;
 
begin
write('vvedite n,k-');
readln(n,k);
s:=1;
for i :=1 to n do
    begin
    read(a[i]);
    if a[i] mod k=0 then s:=s*a[i];
    end;
writeln(s);
end.

Добавлено через 1 минуту
2)

Pascal

var a:array[1..100] of longint;
    n,i:longint;
 
begin
write('vvedite n');
readln(n);
s:=1;
for i :=1 to n do
    read(a[i]);
for i:=1 to n do if a[i] mod 2 =0 then write(i,' ');
end.

@Рамиль17 · 03.05.2011, 22:01 **[ТС]**

спасибо большое за помощь))

@Рамиль17 0 / 0 / 0 Регистрация: 19.04.2011 Сообщений: 12
		1
	Найти произведение элементов кратных заданному числу 03.05.2011, 20:14. Показов 1374. Ответов 2 Метки нет (Все метки) Помогите пожалуйста решить две задачки по информатике. Только недавно начал проходить массивы, пока туплю по страшному. 1) найти произведение элементов кратных заданному числу; 2) вывести номера четных элементов массивов. 0

@Рамиль17 0 / 0 / 0 Регистрация: 19.04.2011 Сообщений: 12
	03.05.2011, 22:01 [ТС]	3
	спасибо большое за помощь)) 0

Найти произведение элементов кратных заданному числу

Решение