1)перевести число из 8-ой сс в 10-ую сс -(245) 2)перевести число из 8сс в 10сс -(2а7) 3)перевести число из 2сс в 10сс -(111111) 4)перевес ти число из 10сс в 8сс -(184) 5)перевести число из 10сс в 16сс -(184) сс-система счисления.
Держи: begin var arr:array[1..30] of integer; var max1:=-1; var min2:=1; var max3:=-999999; for var i := 1 to 30 do readln(arr[i]); writeln(arr.JoinIntoString()); for var i := 1 to 30 do begin if (arr[i] >= 0) and (arr[i] > max1) and (arr[i] mod 2 = 0) then max1 := arr[i]; if (arr[i] < 0) and (arr[i] < min2) and (arr[i] mod 2 <> 0) then min2 := arr[i]; if (arr[i] mod 7 = 0) and (arr[i] > max3) then max3 := arr[i]; end; writeln('Максимальное среди четных положительных чисел:' + max1); writeln('Минимальное среди нечетных отрицательных чисел:' + min2); writeln('Максимальное среди чисел кратных 7:' + max3); end. ... Скажи, если надо объяснить ... Если не сложно нажми " " ;)
Конечно, проще было все написать в одной программе:
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016 begin var a:=ArrRandom(30,-99,99); a.Println; Writeln(a.Where(x->(x>0) and x.IsEven).Max); Writeln(a.Where(x->(x<0) and x.IsOdd).Min); Writeln(Range(6,29,7).Select(i->a[i]).Max) end.
2)679
3)63
4)270
5)B8