Получить массив N=10 из следующих чисел [-15; 15].Посчитать сумму элементов, которые заканчиваются на 5 и на 8.
Помогите пожалуйста составить программу.
//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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
