Массивы

Дан массив 50 целых чисел. Элементы массива могут принимать целочисленные значения от - 40 до 40. Составьте программу вычисления суммы элеменов, меньших первого элемента.

Question

Информатика

Леруся

6 сентября, 02:23

Массивы

Дан массив 50 целых чисел. Элементы массива могут принимать целочисленные значения от - 40 до 40. Составьте программу вычисления суммы элеменов, меньших первого элемента.

+5

Ответы (2)

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

Аполлинарка · Answer 1

Const

N = 50;

Var

A:array[1 ... N] of integer;

i, S:integer;

Begin

Write ('Исходный массив: ') ;

For i: = 1 to N do

Begin

A[i]:=random (81) - 40;

Write (A[i],' ') ;

if A[i]
S:=S+A[i];

End;

WriteLn;

WriteLn ('S = ', S) ;

End.

Никитична · Answer 2

Program wk;

var mas:array [1 ... 50] of integer; s, i:integer;

begin

s:=0;

for i:=1 to 50 do

begin

mas[i]:=random (81) - 40;

if mas[i]
end;

writeln (s)

end.