Program output1;
var M:array [1..100] of integer; {ввод целочисленной переменной M, связанная с массивом}
n,i:integer; {ввод целочисленных переменных n,i}
begin
write('Введите количество элементов массива: '); {ввод кол-ва элементов массива}
readln(n);
for i:=1 to n do {начало цикла for с шагом = 1}
readln(M[i]); {считывание переменной M[i]}
writeln('Введённый массив: '); {вывод массива M[i] на печать}
for i:=1 to n do
writeln(M[i]);
end.
У меня получилось 1 решение при 001
_______________
А) Саратов,Самара,Париж,Волгоград,Воронеж и т.д.
б) Нельзя дописать Волга, тк это река и Россия, тк это Страна
var a:array[1..10] of integer;
i,k:integer; s:real;
begin
randomize;
writeln('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(11);
write(a[i],' ');
if a[i] = i then begin s:=s+a[i]; inc(k) end
end;
writeln;
write('S = ',s/k)
end.