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

@Junk · Регистрация: 13.06.2012

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

Дан массив Ненулевых целых чисел.
Найти СУММУ элементов массива, кратных ТРЕМ, и произведение с нечетными индексами.
P.S.: очень срочно надо!
Помогите, пожалуйста!

@Севак · 14.06.2012, 10:54

Pascal

uses crt;
var a: array[1..10] of integer;
    i,k,s: integer;
begin
k:=1;
writeln('Ввод массива (0 вводить нельзя!):');
for i:=1 to 10 do begin
repeat
write('a[',i,'] = ');
read(a[i]);
until a[i]<>0;
end;
 
for i:=1 to 10 do begin
if a[i] mod 3=0 then inc(s, a[i]);
if i mod 2=1 then k:=k*a[i];
end;
writeln('Сумма элементов, кратных трем: ',s);
writeln('Произведение элементов с нечетными иднексами: ',k);
end.

@Junk · 14.06.2012, 11:28 **[ТС]**

Севак, огромное спасибо тебе!

@Junk 0 / 0 / 1 Регистрация: 13.06.2012 Сообщений: 38
		1
	Найти сумму элементов массива, кратных трем, и произведение элементов с нечетными индексами 14.06.2012, 10:44. Показов 2103. Ответов 2 Метки нет (Все метки) Дан массив Ненулевых целых чисел. Найти СУММУ элементов массива, кратных ТРЕМ, и произведение с нечетными индексами. P.S.: очень срочно надо! Помогите, пожалуйста! 0

@Junk 0 / 0 / 1 Регистрация: 13.06.2012 Сообщений: 38
	14.06.2012, 11:28 [ТС]	3
	Севак, огромное спасибо тебе! 0

Опции темы

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

Решение