Последовательность натуральных чисел бесконечно, поэтому также бесконечна будет искомая сумма. Для того, чтобы сделать задачу реальной, ограничимся n первыми членами последовательности, т.е. рядом чисел 1,2,3,..n. В этом ряду первое число, кратное 5 - это 5. А дальше будем прибавлять по 5, пока не превысим числа n и все полученные числа складывать.
Вот очень короткое решение, написанное на самой современной версии языка Паскаль.
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016 begin Writeln(Range(5,ReadInteger('n='),5).Sum) end.
Результат выполнения программы: n= 100 1050
А вот решение на классическом "школьном" Паскале
var i,n,s:integer; begin Write('n='); Read(n); s:=0; i:=5; while i<=n do begin s:=s+i; i:=i+5 end; Writeln(s) end.
Можно без компьютера и программирования обойтись, если вспомнить об арифметической прогрессии. Для нашего тестового примера получаем 100(100+5)/10=10*105=1050
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016 begin var m,n:integer; Write('Ввведите число строк и столбцов: '); Read(m,n); Writeln('Исходный массив'); var L:=MatrixRandom(m,n,-99,99); var s:=0; for var i:=0 to m-1 do begin for var j:=0 to n-1 do begin Write(L[i,j]:4); if L[i,j]<0 then s+=L[i,j] end; Writeln end; Swap(L[0,0],L[m-1,n-1]); Writeln('Результирующий массив'); for var i:=0 to m-1 do begin for var j:=0 to n-1 do Write(L[i,j]:4); Writeln end; Writeln('Сумма отрицательных элементов равна ',s) end.
