Помогите! Информатика! Составьте прграммы! Хотя бы первые 2! Желательно 3! 100 баллов!

Question

Помогите! Информатика! Составьте прграммы! Хотя бы первые 2! Желательно 3! 100 баллов!

---

Answer 1

// 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.

Пример
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

Замечание: если надо программы отдельно - просто берем нужную строку.

Answer 2

//1
var
  M: array [1..9] of integer = (3,4,7,9,19,23,24,27,39);
  i: byte;
begin
  for i := 1 to 9 do write(M[i], ' ');
end.

//2
var
  M: array [1..5] of integer;
  i: byte;
  sum: integer;
begin
  randomize;
  for i := 1 to 5 do
  begin
    write('M[',i,'] = ');
    readln(M[i]);
    sum := sum + M[i];
  end;
  writeln('Сумма = ', sum);
end.

//3
var
  M: array [1..9] of integer;
  i: byte;
begin
  randomize;
  for i := 1 to 9 do
  begin
    M[i] := random(100);
    write(M[i], ' ');
  end;
end.