Program ex;
type mass=array[1..10] of integer;
var sum, i:integer;
sr:real;
C:mass;
begin
writeln;
write ('Введите 10 элементов массива: ');
for i:=1 to 10 do
read(С[i]);
sum:=0;
for i:=1 to 10 do
begin
sum:=sum+c[i];
end;
sr:=sum/2;
write('Среднее арифметическое=',sr);
<span>end.</span>
Var i,j:integer;
mass1:array[1..10] of integer;
mass2:array[1..10] of integer;
begin
for i:=1 to 10 do begin
read(mass1[i]);
if mass1[i]=0 then begin
j:=j+1;
mass2[j]:=i;
end;
end;
for j:=1 to j do
write(mass2[j]:3);
end.<span>
</span>
Double A[3][4];
int i,j;
double min;
for(i = 0; i < 3; i++)
for(j=0;j<4;j++)
cin>>A[i][j];
min=A[0][0];
for(i = 0; i < 3; i++)
for(j=0;j<4;j++)
if(A[i][j] < min) {min=A[i][j];}
cout<<min;
Не забывай про лучший ответ.