Const n=7; m=8; Var a:array[1..n,1..m] of integer; i,j,x,y,min:integer; begin for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:4); end; writeln; end; min:=a[1,1]; x:=1; y:=1; for i:=1 to n do for j;=1 to m do if a[i,j]<min then begin min:=a[i,j]; x:=i; y:=j; end; writeln ('минимальный элемент=',min,' он находился: ',x,',',y); a[x,y]:=100; for i:=1 to n do begin for j:=1 to n do write (a[i,j]:4); writeln; end; end.
3.Var s:string; i:integer; begin writeln('Введи строку'); readln (s); for i:=1 to length(s) do if (s[i]='Е') or (s[i]='е') then delete(s,i,1); writeln(s); end.
Это невозможно. N и M должны быть константными значениями. То есть в виде переменных их не сделать => ввести с клавиатуры значения для константных значений нельзя. Можно сделать элементы массива рандомными:
0,000512
Объяснение:
ааоаоалалралаооп