Дан массив из n чисел. получить сумму элементов массива, которые кратны 5 паскаль

azim20071 azim20071    3   07.09.2019 02:50    0

Ответы
умный2006 умный2006  06.10.2020 22:17
Program sum;

var
Arr: array [1..10] of integer;
n,i: integer;
Sum: integer;
begin
{Заполнение массива и подсчёт суммы}
n:=10;
randomize;
Sum:=0;
for i:=1 to n do begin
  Arr[i]:=random(100);
  write(Arr[i],',');
  if Arr[i] mod 5=0 then
    Sum:=Sum+Arr[i];
end;
writeln;
writeln('сумма элементов кратных 5  равна  ', Sum);
readln;

end.
ПОКАЗАТЬ ОТВЕТЫ
raminowka raminowka  06.10.2020 22:17
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Write('Сумма элементов, кратных 5: ',
      a.Where(x->x mod 5=0).Sum)
end.

Пример
n= 13
-66 87 95 10 18 69 62 -74 -24 -74 -92 57 -4
Сумма элементов, кратных 5: 105
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика