Program JuliaVanina;
uses crt;
var
r,min,max: real;
k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
min:=0;
max:=0;
k:=0;
r:=1;
writeln('Введите ненулевое число, не превышающее 30000 по модулю');
writeln('(или введите 0 для конца последовательности) ');
while (r<>0) and (k<1000) do
begin
write('Ввод:');
readln (r);
if abs(r)<30000 then
begin
if min>r then min:=r;
if max<r then max:=r;
k:=k+1;
end
else
begin
writeln ('вы ввели слишком большое по модулю число');
writeln ('Это число не будет учтено');
end;
end;
writeln();
writeln('Всего введено ',k-1,' чисел');
writeln('Разность min и max составляет ',max-min);
end.
Проверено - работает на Паскаль АВС
uses crt;
var i,j,k,n,m,t:integer;
mas: array[1..10,1..10]of integer;
begin
randomize;
readln(n);
readln(m);
writeln;
writeln('Bazovui massiv');
for i:=1 to m do
for j:=1 to n do
mas[i,j] :=random(100);
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
writeln;
for i:=1 to m do
for j:=1 to n do
for k:=1 to n-1 do
if mas[i,k]>mas[i,k+1] then Begin
t:=mas[i,k];
mas[i,k]:=mas[i,k+1];
mas[i,k+1]:=t;
End;
writeln;
writeln('Massiv posle obrabotki') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
end.
uses crt;
var i,j,k,n,m,t:integer;
mas: array[1..10,1..10]of integer;
begin
randomize;
readln(n);
readln(m);
writeln;
writeln('Bazovui massiv');
for i:=1 to m do
for j:=1 to n do
mas[i,j] :=random(100);
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
writeln;
for i:=1 to m do
for j:=1 to n do
for k:=1 to n-1 do
if mas[i,k]>mas[i,k+1] then Begin
t:=mas[i,k];
mas[i,k]:=mas[i,k+1];
mas[i,k+1]:=t;
End;
writeln;
writeln('Massiv posle obrabotki') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
end.