Объяснение:
во вложениях.....
^ у меня не ставится, но выполняет свои действия, у себя его ставьте!
Var x1, x2, n:integer;
y: real;
begin
write('Введите х1: ');
read(x1);
n:=x1;
write('Введите х2: ');
readln(x2);
while n<>(x2+1) do
begin
y:=n/3+2;
writeln('y = ',y);
n:=n+1;
end;
<span>end.
</span>
uses crt;
var i,j,min,n,m :integer; s:real;
a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
begin
readln(n,m);
s:=0;
for i:=1 to n do begin
for j:=1 to m do
a[i,j]:=random(25)+1;
end;
for i:=1 to n do begin writeln;
for j:=1 to m do
write(a[i,j],' ');
end; writeln;
WriteLn('Ìèíèìàëüíûå ýëåìåíòû ñòðîê:');
for i:=1 to n do begin
min:=a[i,j];
for j:=2 to m do begin
if min>a[i,j] then begin
min:=a[i,j];
end;
end;
s:=s+min;
Write(min,' ');
end;
writeln('avg = ',(s/n):0:1);
end.
Правильный ответ на этот вопрос A.