Массив вводится вручную, минимальный элемент указан в той же строке, где найден. Program asd; var B:array [1..6,1..5] of integer; i,j,min:integer; begin for i:=1 to 6 do for j:=1 to 5 do read(B[i,j]); for i:=1 to 6 do begin min:= B[i,1]; for j:=1 to 5 do begin if B[i,j]<min then min:=B[i,j]; write (B[i,j],' '); end; writeln ('минимальный элемент равен ',min); end; end.
Составить программу, которая меняет местами значения переменных a и b, введенных с клавиатуры, без использования дополнительных переменных вот прога которую я нашёл в инете и разбирал не понимаю одного как она вычисляет по формулам begin a:=a+b; b:=a-b; a:=a-b; end; объясните если например a= 23, b=45 PascalВыделить код 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 var a,b:real; procedure change(var a,b:real); begin a:=a+b; b:=a-b; a:=a-b; end; begin writeln(' Г*,ГЎ'); readln(a,b); writeln('a=',a); writeln ('b=',b); change(a,b); writeln('a=',a); writeln ('b=',b); readln; end.
Program asd;
var B:array [1..6,1..5] of integer; i,j,min:integer;
begin
for i:=1 to 6 do
for j:=1 to 5 do
read(B[i,j]);
for i:=1 to 6 do
begin min:= B[i,1];
for j:=1 to 5 do
begin if B[i,j]<min then min:=B[i,j];
write (B[i,j],' ');
end;
writeln ('минимальный элемент равен ',min); end;
end.