Найти сумму положительных элементов линейного массива целых чисел на языке програмирования паскаль в начале программы объявляются целые переменные sum и одномерный массив целых чисел m: array of integer.

Program al; const n=10; var i,sum: integer; m: array[1..n] of integer; begin writeln('wwedite massiv='); for i: =1 to n do readln(m[i]); sum: =0; for i: = 1 to n do if m[i]> 0 then sum: =sum+m[i]; writeln('sum=',sum); readln; end.

var

  mas: array[0..11] of integer;

  a, c, b: integer;

begin

  for a : = 0 to 9 do  

  begin

    mas[a] : = random(-50, 50); //pascalabc.net позволяет задавать диапазон случайных чисел  

    write(mas[a], ' ');

    if mas[10] > mas[a] then begin mas[10] : = mas[a]; b : = a; end;

    if mas[11] < mas[a] then begin mas[11] : = mas[a]; c : = a; end;

  end;

  writeln;

  writeln('min[', b, '] = ', mas[10]);

  writeln('max[', c, '] = ', mas[11]);

  a : = mas[b];

  mas[b] : = mas[c];

  mas[c] : = a;

  for a : = 0 to 9 do write(mas[a], ' ');

end.

1 - не сделаю. тк нет 121

ответ:

номер 2.

          ----- 10,2         10,8     -10,2       -10,8

round(x) 10             11           -10           -11

int(x)         10           10           -10         -10

frac(x)       2             8             2             8

3.

program s;

var a, b: real;

begin

    write('a: ');

    readln(a);

    write('b: ');

    readln(b);

   

    writeln(a*b);

end.

4. думаю сам )

объяснение:

2. думаю в объяснении не нуждается. в и так написано, что

3. создали переменные, запросили значения, вывели произведение.