const n=20;
var a:array [1..n] of integer;
i,max,maxi,min,mini:integer;
begin
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random(101)+50;
write (a[i],' ')
end;
max:=a[1];
maxi:=1;
min:=a[1];
mini:=1;
for i:= 1 to n do
begin
if a[i]>max then
begin
max:=a[i];
maxi:=i
end;
if a[i]<min then
begin
min:=a[i];
mini:=i
end
end;
writeln;
writeln('Максимальный элемент ',max,' и его номер ',maxi);
writeln('Минимальный элемент ',min,' и его номер ',mini)
end.
Или (если max или min элемент будет не один)
const n=20;
var a:array [1..n] of integer;
i,max,min:integer;
begin
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random(101)+50;
write (a[i],' ')
end;
max:=a[1];
min:=a[1];
for i:= 1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]
end;
writeln;
for i:= 1 to n do
begin
if a[i]=max then writeln('Максимальный элемент ',max,' и его номер ',i);
if a[i]=min then writeln('Минимальный элемент ',min,' и его номер ',i)
end
end.
Фото приложил
Первый скриншот - это сам код.
Второй - это результат.
На всякий случай еще сюда продублирую код... Только внимательней с табуляцией.
Код:
import turtle
pen = turtle.Turtle()
pen.speed(1)
pen.color('yellow')
def six():
angle = 60
for i in range(6):
pen.left(angle)
pen.forward(100)
for i in range(6):
six()
pen.up()
pen.right(60)
pen.forward(100)
pen.down()
Но я бы цвет с yellow поменял бы на black, а то на белом фоне смотрится так себе...
Если хочешь как на 3 скрине, добавь строчку "pen.width(10)" после "pen.speed(1)" например
// Внимание! Если программа не работает, обновите версию!
const
n=34;
begin
// 1
var R:=ArrRandom(n,-8,8); R.Println;
// 2
var b:=R.Slice(Trunc(0.75*n)-1,3);
Writeln('Ср.гармоническое= ',b.Count/b.Aggregate(0.0,(x,y)->x+1.0/y));
// 3
var m:=R.Batch(n div 3).ToArray[1].Where(x->x.IsEven).MinBy(x->abs(x));
Writeln('Минимальный по модулю= ',m);
// 4
var R2:=R.Select((x,i)->(x,i)).Batch(n div 2).ToArray;
var r21:=R2[0].Where(x->x[0]<0).OrderBy(x->sqr(x[0]));
var ind:=r21+R2[1].Where(x->x[0]<0).OrderBy(x->sqr(x[0])).ToArray;
var ind1:=ind.UnZipTuple;
var aVal:=ind1[0].ToArray;
var aInd:=ind1[1].Sorted.ToArray;
for var i:=0 to aVal.Count-1 do R[aInd[i]]:=aVal[i];
R.Println
end.
Пример
8 -3 2 -2 6 6 7 6 -7 -5 -4 6 2 2 1 1 -6 1 -1 -5 8 4 1 7 1 1 2 -8 -8 1 -7 1 8 -6
Ср.гармоническое= 7.07368421052631
Минимальный по модулю= 2
8 -2 2 -3 6 6 7 6 -4 -5 -6 6 2 2 1 1 -7 1 -1 -5 8 4 1 7 1 1 2 -6 -7 1 -8 1 8 -8