Var a:array[1..20] of integer;
n,i:integer;
begin
for i:=1 to 20 do begin
a[i]:=random(-150,1000);
if (a[i] mod 5=0) and (a[i] mod 2<>0) then n+=1;
write(a[i],' ');
end;
writeln();
writeln('Искомых элементов: ',n);
end.
Begin
var a:=ReadArrInteger('Введите 10 чисел:',10);
var m:=a.Where(x->x<a.Max).Max;
writeln('Второй максимум = ',m);
end.
Пример:
Введите 10 чисел:
5
44
80
1
8
100
1
90
2
6
Второй максимум = 90
2+2=4
2+4=6
2+6=8
2+8=10
2+10=18
2+12=14
2+14=16
2+16=18
2+18=20
(так же делаешь с числами 4, 6, 8.....18)
// Аллилуйа человеки в питоне пишут
1.
a = int(input())
if a > 0:
print(1)
else:
print(-1)
2.
a, b = int(input()), int(input())
print(max(a, b))
Объяснение:
Должен создать 4 переменные для каждого числа.
YES будет высвечиваться в том случае, если: a = d, b = c.
NO будет высвечиваться в остальных случаях.
(Пишу на других языках, но тут через конструкцию if esle делай)