Var
Z:array [1..10] of Integer;
i,max,min:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to 10 do
Begin
Write('Z(',i,') = ');
ReadLn(Z[i]);
End;
max:=Z[1];
min:=Z[1];
For i:= 2 to 10 do
begin
if (Z[i]>max) then max:=Z[i];
if (Z[i]<min) then min:=Z[i];
End;
Writeln('Наибольшее число = ',max);
Writeln('Наименьшее число = ',min);
end.
Координата С (столбец) задана абсолютно, поэтому она останется неизменной.
Координата 5 (строка) задана относительно, поэтому при увеличении номера строки на 1 (с 4 на 5) она тоже увеличится на 1.
Формула будет =$C6+3
AB(16) = 171(10)
25(8) = 21(10)
11000000(2) = 192(10)
11000011(2) = 195(10)
11011001(2) = 217(10)
11011111(2) = 223(10)
171+21=192
Отсюда следует, что в данном ряду чисел являющихся больше 192 - три: 11000011, 11011001, 11011111. Всё!
1. друга ищи, а найдёшь - береги
2. старый друг лучше новых двух
Var mas: array[1..15] of integer;
i, min, max, nMin, nMax:integer;
begin
writeln('Введите 15 элементов массива');
for i := 1 to 15 do
readln(mas[i]);
min := mas[1];
max := mas[1];
nMin := 1;
nMax := 1;
for i := 1 to 15 do
begin
if max < mas[i] then
begin
max := mas[i];
nMax := i;
end;
if min > mas[i] then
begin
min := mas[i];
nMin := i;
end;
end;
writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin);
end.