Помогите! Информатика! Составьте прграммы! Хотя бы первые 2! Желательно 3! 100 баллов!
Answers & Comments
pacixor// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var M:=Arr(3,4,7,9,19,23,24,27,39); M.Println; //1 var a:=ReadArrReal('Введите 5 чисел:',5); Writeln('s=',a.Sum); // 2 var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println // 3 end.
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var M:=Arr(3,4,7,9,19,23,24,27,39); M.Println; //1
var a:=ReadArrReal('Введите 5 чисел:',5); Writeln('s=',a.Sum); // 2
var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println // 3
end.
Пример
3 4 7 9 19 23 24 27 39
Введите 5 чисел: 35 2.5 -61.4 8 17
s=1.1
n= 9
-87 30 70 57 1 90 19 -3 -2
Замечание: если надо программы отдельно - просто берем нужную строку.