Написать программу, позволяющую для заданного одномерного массива А из n вещественных или целых элементов реализовать обработку массива. Длина массива N задается пользователем как константное выражение. Исходные данные задать вручную или с помощью генератора случайных чисел, учитывая формат элементов массива А. Тип результата определяется из контекста.

-Вычислить количество отрицательных элементов массива;

-сумму модулей элементов массива, расположенных после максимального элемента

Question

Информатика

Клементина

4 марта, 15:36

Написать программу, позволяющую для заданного одномерного массива А из n вещественных или целых элементов реализовать обработку массива. Длина массива N задается пользователем как константное выражение. Исходные данные задать вручную или с помощью генератора случайных чисел, учитывая формат элементов массива А. Тип результата определяется из контекста.

-Вычислить количество отрицательных элементов массива;

-сумму модулей элементов массива, расположенных после максимального элемента

+1

Ответы (1)

Знаете ответ на вопрос?

Саня · Answer 1

Const n=

var a:array [1 ... n] of integer; (целый)

i, k, i_max: byte; max, sum:integer;

begin

randomize; или for i:=1 to n do

for i:=1 to n do readln (a[i]) ;

a[i]:=random (100) ;

k:=0

for i:=1 to n do

if a[i]<0 then k:=k+1];

max:=0; i_max:=0;

for i:=1 to n do

if a[i]>max then begin max:=a[i]; i_max:=i; end;

sum:=0;

for i:=i_max to n do

sum:=sum+a[i];

writeln ('Количество отрицательных элементов ', k) ;

writeln ('Сумма элементов ', sum) ;

readln;

end.