program raf105;
const
n = 5;
var
a: array[1..n] of integer;
x,max,min,i: integer;
begin
writeln('Введите ',n,' по очереди');
for i:=1 to n do
readln(a[i]);
max:= a[1];
min:= a[1];
for i:=1 to n do
begin
if max < a[i]
then max:= a[i];
if min > a[i]
then min:= a[i];
end;
writeln;
write('Массив: ');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Наибольший элемент: ',max);
writeln('Наименьший элемент: ',min);
end.
2.program raf105;
const
n = 5;
var
a: array[1..n] of real;
x,i: integer;
min: real;
begin
writeln('Введите ',n,' по очереди');
for i:=1 to n do
readln(a[i]);
writeln;
write('Исходный массив: ');
for i:=1 to n do
write(a[i],' ');
min:= a[1];
for i:=1 to n do
if min > a[i]
then min:= a[i];
for i:=1 to n do
a[i]:= a[i]/min;
writeln;
write('Изменённый массив: ');
for i:=1 to n do
write(a[i],' ');
end.
3.program raf105;
const
n = 8;
var
a: array[1..n] of integer;
x,i,max: integer;
begin
writeln('Введите ',n,' по очереди');
for i:=1 to n do
readln(a[i]);
writeln;
write('Исходный массив: ');
for i:=1 to n do
write(a[i],' ');
max:= a[1];
for i:=1 to n do
if max < a[i]
then max:= a[i];
for i:=1 to n do
a[i]:= a[i]+max;
writeln;
write('Изменённый массив: ');
for i:=1 to n do
write(a[i],' ');
end.
PascalABC 3.4.2
солдат поставленный в угол крепости будет считаться стоящим у каждой из примыкающих к этому углу стен.
что бы выполнить приказ полковника надо поставить в каждом углу по 2 солдата таким образом у каждой стены будут стоять по 4 солдата. Добавляем к каждой стене еще по 2 солдат, и получаем по 6 солдат у каждой стены.
2*4=8 солдат по углам
2*4=8 солдат вдоль стен
8+8=16
Что бы выполнить распоряжение генерала надо расставить по углам по 3 солдата и вдоль стен по 1 .
3*4=12 по углам
1*4=4 вдоль стен
12+4=16