Одномерный и Двумерный Массивы

@slimyonok · Регистрация: 13.09.2010

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

Помогите пожалуйста решить пару задач )

1.Найти количество элементов массива B(16), кратных 4 и не больших заданного числа a.

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

@Mad_Dog · 23.09.2010, 15:35

1.

Pascal

readln(a);
Count:=0;
for j:=1 to 16 do
  if (b[j]<=a) and (b[j] mod 4=0) then Inc(Count);
writeln(Count);

2.

Pascal

Sum:=0;
Count:=0;
for j:=1 to N do
  if b[j]>0 then
    begin
      Inc(Count);
      Sum:=Sum+b[j]
    end;
P:=Sum*Count;

@slimyonok 0 / 0 / 0 Регистрация: 13.09.2010 Сообщений: 26
		1
	Одномерный и Двумерный Массивы 23.09.2010, 15:20. Показов 1129. Ответов 1 Метки нет (Все метки) Помогите пожалуйста решить пару задач ) 1.Найти количество элементов массива B(16), кратных 4 и не больших заданного числа a. 2.Найти произведение суммы положительных элементов матрицы на их количество. 0

	23.09.2010, 15:35

Одномерный и Двумерный Массивы

Решение