var
a: array[0..20] of real;
i, iMax: integer;
//iMax:real;
begin
Randomize;
iMax := 1;
Writeln('Исходный массив');
for i := 1 to 20 do
begin
a[i] := random(0.00, 50.00);
Write(a[i]:0:2, #32);
end;
for i := 1 to 20 do
if a[i] > a[iMax] then
begin
iMax := i;
end;
Writeln('Элемент номер: a[', iMax, '] ','максимальный. Значение: ', a[iMax]:0:2);
end.
1:
a = int(input())
b = int(input())
if a == b:
print('Числа равны')
elif a > b:
print(f'Первое число - {a} больше, чем второе число - {b})
elif a < b:
print(f'Второе число - {b} больше, чем первое число - {a}')
2:
a = int(input())
b = int(input())
print('Периметр треугольника', a * 3)
print('Периметр квадрата', b * 4)
if a * 3 == b * 4:
print('Периметры равны')
elif a * 3 > b * 4:
print('Периметр треугольника больше, чем периметр квадрата')
elif a * 3 < b * 4:
print('Периметр квадрата больше, чем периметр треугольника')
3:
a = int(input())
b = int(input())
c = int(input())
print('MAX=', max(a, b, c), sep='')
4:
m = int(input())
t = int(input())
if m > t:
print('У Маринки больше яблок. Тарасу нужно дать ещё', m - t, 'ябл.')
elif m < t:
print('У Тараса больше яблок. Маринке нужно дать ещё', t - m, 'ябл.')
elif m == t:
print('Количество яблок равно.')
Объяснение:
извини, украинский не знаю, думаю сам изменишь, если нужно
===== PascaslABC.NET =====
begin
var a := ArrRandomReal(20, 0, 50);
a.Println;
Print('Max =', a.Max)
end.