1. заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35. найти сумму элементов данного массива. 2. заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35. найти значение максимального элемента массива.

відповідь:

в первый день

250 : 100 * 30=75

во второй день

75 : 100 * 80=60

в третий день

250 - (75+60)=115

покрокове пояснення:

но я могу ошибаться

program mas1;

  uses crt;

  const n: =10;

  type ar=array [1..n] of real;

  var v: ar;

        s,max: real;

        i: integer;

begin

    clrscr;

    s: =0;

    max: =0;

    i: =1;

    for i: =1 to n do

    begin

    v[i]: =50*random-15;

    s: =s+v[i];

    if max< v[i] then max: =v[i];

    end;

    writeln ('s= ', s: 6: 2,'   max=   ', max);

readln;

end.

два в одном:

var

  a: array [1..10] of integer;

  s, i, max: integer;

begin

  max: = - 16;

  for i: = 1 to 10 do

  begin

    a[i]: = random(50) - 15;

    writeln(a[i]);

    s: = s + a[i];

    if a[i] > max then max: = a[i];

  end;

  writeln('сумма элементов массива: ', s);

  writeln('максимальный элемент массива: ', max);

end.

1 зайти и использовать на картинке

2 выделяется область мышкой

3 хз

4вроде возвращать или удалять точно не помню