1.
program p1;
var i, a :integer;
M :array [1..10] of integer;
begin
writeln('Введи целое число');
readln(a);
write('индексы элементов, кратных заданному числу:');
for i := 1 to High(M) do
if i mod a = 0 then write(' ', i);
end.
2.program p2;
var i :integer;
s, r :real;
M :array [1..10] of real;
writeln('Вводи числа');
readln(M[i]);
s := s + M[i];
end;
r := s/High(M);
write('Среднее арифметическое:', r);
1.
program p1;
var i, a :integer;
M :array [1..10] of integer;
begin
writeln('Введи целое число');
readln(a);
write('индексы элементов, кратных заданному числу:');
for i := 1 to High(M) do
if i mod a = 0 then write(' ', i);
end.
2.
program p2;
var i :integer;
s, r :real;
M :array [1..10] of real;
begin
writeln('Вводи числа');
for i := 1 to High(M) do
begin
readln(M[i]);
s := s + M[i];
end;
r := s/High(M);
write('Среднее арифметическое:', r);
end.