const n=10;
var a:array [1..n] of integer;
i,s,k:integer;
begin
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random (16);
write (a[i],' ');
if a[i] mod 5 = 0 then
begin
s:=s+a[i];
k:=k+1
end
end;
writeln;
if k<>0 then writeln('Среднее арифметическое элементов массива, которые делятся на 5, равно: ',s/k:0:3)
else writeln ('Элементов массива, которые делятся на 5, нет.')
end.
С++
int a;
cin >> a;
if (a % 2 == 0) {
a = 10;
}
else {
a = -10;
}
Var x, y: real;
const centerX = 4; centerY = 4; distance = 3;
begin
writeln('Введите координаты точки x, y: ');
read(x);
read(y);
writeln(abs(centerX - x) + abs(centerY - y) <= distance)
end.