Var b,sum:integer; a :array [0..31] of integer; begin sum:=0; randomize; for b:=0 to 9 do begin a[b]:= random(31)-15; writeln(a[b]); if (abs( a[b] mod 10) = 5) or (abs (a[b] mod 10) = abs(8)) then sum:=sum+a[b]; end; writeln('сумма элементов оканчивавшихся на 5 или 8 = ',sum) end.
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const n = 10; var a: array[1..n] of integer; i,s:integer; begin for i:=1 to n do begin a[i]:=random(31)-15; write(a[i]:4); if (abs(a[i]) mod 10 = 5) or (abs(a[i]) mod 10 = 8) then s:=s+a[i]; end; writeln; writeln('Сумма оканчивающихся на 5 или 8 : ', s); end.
Тестовое решение: 8 12 4 2 -10 10 -10 2 8 -13 Сумма оканчивающихся на 5 или 8 : 16
После первых побед государь Петр Романов заложил на берегах Невы крепость, которую и назвал Санкт-Петербургом, что означает “святого Петра крепость”. Только не подумайте, что царь назвал город в свою честь: город носит имя ангела-хранителя царя – святого апостола Петра. Знаете, почему он назвал город на европейский манер? Потому, что в отличие от древней Москвы, Петр решил заложить европейскую столицу России и самим названием подчеркнул, что этот город европейский.
В первую очередь на Заячьем острове была построена Петропавловская крепость. Дата её основания – 16 мая 1703 года – считается днем рождения города. Адмиралтейство – вторая крепость на берегах Невы. Перекрестный огонь пушек Петропавловской крепости и Адмиралтейства мог потопить любое вражеское судно, которое вознамерилось бы войти в Неву. Но очень скоро устье Невы было защищено морской крепостью – Кронштадтом. Со стены Петропавловской крепости бьет пушка. Пушка стреляла и при Петре – на вечерней и утренней заре, отмечая подъём и спуск флага. А ещё извещала людей о наводнении. А позднее – с середины века – ввели полуденный выстрел и узнавали по нему время.
В центре крепости стоит собор во имя святых апостолов Петра и Павла – усыпальница державных правителей России. Петропавловский собор увенчан высоким шпилем, на верхушке которого помещен флюгер в виде ангела. В 1722 году в Петербурге – напротив Летнего сада, на Фонтанке – заработала верфь, где начали строить суда для частных лиц. В дни праздников разрисовывали паруса, лодки красили в различные цвета и устраивали парад. А когда над Невой расцветали фейерверки – зрелище бывало просто сказочное
a :array [0..31] of integer;
begin
sum:=0;
randomize;
for b:=0 to 9 do begin
a[b]:= random(31)-15;
writeln(a[b]);
if (abs( a[b] mod 10) = 5) or (abs (a[b] mod 10) = abs(8)) then sum:=sum+a[b];
end;
writeln('сумма элементов оканчивавшихся на 5 или 8 = ',sum)
end.