1: наименьшая единица измерения информации.
2: краткое прилагательное, образованное от глагола бить.
<em>MS DOS QBasic 1.0</em>
DIM n AS INTEGER, m AS INTEGER
CLS
INPUT "n,m=", n, m
IF n < 3 THEN
PRINT "n<3"
SYSTEM
END IF
REDIM a(1 TO n, 1 TO m) AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(50 * RND)
PRINT USING "###"; a(i, j);
NEXT j
PRINT
NEXT i
PRINT
FOR i = 4 TO n
FOR j = 1 TO m
a(i - 1, j) = a(i, j)
NEXT j
NEXT i
FOR i = 1 TO n - 1
FOR j = 1 TO m
PRINT USING "###"; a(i, j);
NEXT j
PRINT
NEXT i
<u>Пример
</u>n,m=5,8
43 6 19 48 44 6 28 10
5 48 44 1 31 30 25 33
19 30 46 27 29 34 45 8
17 37 43 1 37 46 25 45
48 48 27 21 36 48 44 37
43 6 19 48 44 6 28 10
5 48 44 1 31 30 25 33
17 37 43 1 37 46 25 45
48 48 27 21 36 48 44 37
<u>Замечание</u>
Поскольку QBasic не поддерживает сохранение содержимого при изменении размеров динамического массива, для упрощения было решено не заниматься созданием вспомогательного массива, копирования в него всех строк, кроме последней, затем изменение размера исходного массива и обратное копирование в него. Просто считается, что n уменьшилось на 1.
Program n1;
var a,b,c,max,min: real;
begin
readln(a,b,c);
if(a>b) and (a>c) then max:=a;
if(b>a) and (b>c) then max:=b;
if(c>a) and (c>b) then max:=c;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('разность: ',max-min);
end.
X=[15,1,0,255,12,38,154,36,794,2,54,-69] #массив
Z=[] #пустой массив
#запоминаем первый элемент из массива X как минимальный и максимальный
minc=X[0]
minind=0
maxc=X[0]
maxind=0
k=-1 #переменная-счетчик
for i in range(len(X)): #цикл
if i%2==0:
k+=1
Z.append(X[i]) #добавляем элемент Z[i], если i - четный
print(Z)
# проверка на минимум и максимум
if X[i]>maxc:
maxc,maxind=X[i],k
if X[i]<minc:
minc,minind=X[i],k
print(minind,maxind,k)
Z[minind]=maxc
Z[maxind]=minc
print(Z)
0,098 килобайт получается