Регистрация
Рената515
18.09.2020 02:20
Информатика
Есть ответ 👍

Паскаль.заполнить одномерный массив случайными числами от -70 до 30,посчитать сумму отрицательных элементов массива и вычислить её абсолютную величину.

260
495
Посмотреть ответы 2

Ответы на вопрос:

витка9
витка9
4,6(57 оценок)
Var a: array[1..1000] of integer; n, i, suma: integer; begin write('введите количество чисел массива '); readln(n); suma: =0; for i: =1 to n do begin a[i]: =random(101)-70; if(a[i]< 0) then suma: =suma+a[i]; end; write('массив '); for i: =1 to (n-1) do write(a[i],', '); writeln(a[n],' '); writeln('сумма отрицательных элементов ',abs(suma)); end.
labzaekaterina
labzaekaterina
4,8(38 оценок)
  var a, b : integer;   procedure fo(a, b: integer); var i : integer; begin for i: =a to b do write(i,' '); writeln('n = ',b-a+1); end;   procedure whil(a, b : integer); var n: integer; begin n: =0; while (a < = b) do begin write(a,' '); inc(a); inc(n); end; writeln('n = ', n); end;   procedure repea(a, b : integer); var n : integer; begin n: =0; repeat write(a,' '); inc(a); inc(n); until (a> b); write('n = ',n); end;   begin readln(a, b); fo(a, b); whil(a, b); repea(a, b); end.

Популярно: Информатика