Подсчитать количество и сумму элементов массива, которые делятся на 5 без остатка

@f3tch · Регистрация: 23.10.2012

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

массив целых чисел из 10 элементов заполнить случайным образом. Подсчитать количество и сумму элементов массива которые делятся на 5 без остатка

@CodeR · 19.11.2012, 11:18

Pascal

Const n=10;
Var A:array[1..n] of integer;
    i,k,s:integer;
Begin
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
      if A[i] mod 5 = 0 then
      Begin
        inc(k);
        inc(s,A[i]);
      End;
    End;
    writeln;
    writeln('Сумма = ',s);
    writeln('Кол-во = ',k);
end.

@f3tch · 19.11.2012, 12:14 **[ТС]**

а как-то еще можно его упростить?

var m: array [1..10] of integer;
j,s:integer ;
begin
randomize;
for j:=1 to 10 do
begin M [j]:=random (10)
writeln ('M[',J,']=',M[J]);
END;

вот что я сам смог надумать :S

@f3tch 0 / 0 / 0 Регистрация: 23.10.2012 Сообщений: 9
		1
	Подсчитать количество и сумму элементов массива, которые делятся на 5 без остатка 19.11.2012, 11:05. Показов 8688. Ответов 2 Метки нет (Все метки) массив целых чисел из 10 элементов заполнить случайным образом. Подсчитать количество и сумму элементов массива которые делятся на 5 без остатка 0

@f3tch 0 / 0 / 0 Регистрация: 23.10.2012 Сообщений: 9
	19.11.2012, 12:14 [ТС]	3
	а как-то еще можно его упростить? var m: array [1..10] of integer; j,s:integer ; begin randomize; for j:=1 to 10 do begin M [j]:=random (10) writeln ('M[',J,']=',M[J]); END; вот что я сам смог надумать :S 0

Подсчитать количество и сумму элементов массива, которые делятся на 5 без остатка

Решение