Помогите с паскалем!

Нужно вычислить сумму отрицательных элементов одномерного массива А с длинной N стоящий на чётных местах

Question

Информатика

Ника

3 мая, 23:11

Помогите с паскалем!

Нужно вычислить сумму отрицательных элементов одномерного массива А с длинной N стоящий на чётных местах

+4

Ответы (1)

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

Маюша · Answer 1

Const

N = 13;

Var

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

i:integer;

S:real;

Begin

Randomize;

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

For i: = 1 to N do

Begin

A[i]:=random (2*N+1) - N;

Write (' ', A[i]) ;

if (i mod 2 = 0) and (A[i] < 0) then S:=S+A[i]

End;

WriteLn;

WriteLn ('S = ', S) ;

ReadLn;

End.

Помогите с паскалем!Нужно вычислить сумму отрицательных элементов одномерного массива А с длинной N стоящий на чётных местах

Помогите с паскалем!

Нужно вычислить сумму отрицательных элементов одномерного массива А с длинной N стоящий на чётных местах