const n = 7;
var a: array [1..n] of integer;
i, max: integer;
begin
for i := 1 to n do
begin
write('Введите ', i, ' элемент: ');
readln(a[i]);
end;
max := 0;
for i := 1 to n do
begin
if (a[i] mod 10 = 3) and (a[i] > max) then
max := a[i];
end;
for i := 1 to n do
begin
if (a[i] mod 8 = 0) then
a[i] := a[i] + max;
end;
for i := 1 to n do
begin
write(a[i], ' ');
end;
writeln();
end.
#include <iostream>
#include <string>
int main()
{
using namespace std;
int sum = 0, kr = 0, n = 0;
cout << "Вводите числа. 0 - конец." << endl;
while (true){
cin >> n;
sum += + n;
if (n%2==0 && n%5==0){
kr += 1;
}
if (n == 0){
break;
}
}
cout << "Сумма последовательности: " << sum << "\nКоличество четных чисел, кратных пяти: " << kr << endl;
}
