3, 60E+03 какое это число?​

3600

Объяснение:

program massiv_zamena_min_max;
uses crt;
var massiv: array [1..100,1..100] of integer;
i,j,mr,mc,min, max, minj, maxj, tmp:integer;
begin
clrscr;
mr:=101;
mc:=101;
while ((mr>100)or(mr<0)or(mc>100)or(mc<0)) do
begin
writeln('Vvedite razmernost massiva (ne bolee chem 100x100):');
readln(mr);
readln(mc);
end;
for i:=1 to mr do
for j:=1 to mc do
begin
writeln('Vvedite element massiva nomer ',(i-1)*mc+j,':');
readln(massiv[i,j]);
end;

writeln('Massiv do izmeneniya:');
for i:=1 to mr do
begin
for j:=1 to mc do write(massiv[i,j],' ');
writeln;
end;

min:=massiv[1,1];
minj:=1;
for i:=1 to mr do
for j:=1 to mc do
if massiv[i,j]begin
min:=massiv[i,j];
minj:=j;
end;

max:=massiv[1,1];
maxj:=1;
for i:=1 to mr do
for j:=1 to mc do
if massiv[i,j]>max then
begin
maX:=massiv[i,j];
maxj:=j;
end;

for i:=1 to mr do
begin
tmp:=massiv[i,minj];
massiv[i,minj]:=massiv[i,maxj];
massiv[i,maxj]:=tmp;
end;

writeln('Nomer ctolbca s minimalnym elementom: ',minj);
writeln('Nomer ctolbca s maximalnym elementom: ',maxj);

writeln('Massiv posle izmeneniya:');
for i:=1 to mr do
begin
for j:=1 to mc do write(massiv[i,j],' ');
writeln;
end;

readln;
end. Это решение

выводит на экран нечётные числа от 1 (включительно) до n (не включительно) в строку через пробел

Объяснение:

n = int(input('n = ')) - ввод числа n

for j in range (1, n, 2): - цикл от 1 (включительно) до n (не включительно) с шагом 2

1 (1 + 2 = 3 < n, да)

3 (3 + 2 = 5 < n, да)

5 (5 + 2 = 7 < n, да)

и так далее пока новый шаг не даст число равное или больше n (число >= n), после чего цикл закончится

print (j, end=' ') - вывод результата каждого шага цикла на экран в строку через пробел, т.к. строка (из-за параметра end=' ') заканчивается пробелом