А) - 4), Б) - 5), В) - 2), Г) - 1), Д) - 3).
Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end.
Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56
//Pascal ABC.NET v3.0 сборка 1111
Var
a,b,c:real;
begin
read(a,b,c);
write((a+b+c)/3);
end.
Пример ввода:
1
2
3
Пример вывода:
2
1.
num = input()
num_rev = int(num[::-1])
print(max( int(num), num_rev ))
2.
num1 = int(input())
num2 = int(input())
num3 = int(input())
more_then_0 = 0
less_then_0 = 0
is_0 = 0
for i in [num1, num2, num3]:
if i > 0:
more_then_0 += 1
elif i < 0:
less_then_0 += 1
else:
is_0 += 1
if more_then_0 == 3:
print(num1 + num2 + num3)
elif less_then_0 == 2:
print(num1 * num2 * num3)
elif is_0 == 2:
print(0)
3. Не понял задание, напиши в комментариях, что именно нужно сделать, а я отредактирую ответ, и напишу решение
4.
kat1 = int(input())
kat2 = int(input())
gip = (kat1**2 + kat2**2)**0.5
S = kat1*kat2/2
P = kat1+kat2+gip
