Задан одномерный массив из целых чисел размерностью 10. Определить сумму отрицательны

[donrivol]

Задан одномерный массив из целых чисел размерностью 10. Определить сумму отрицательны

Задан одномерный массив из целых чисел
размерностью 10. Определить сумму отрицательных элементов
Помогите решить пожалуйста

 

[vasilych]

Если навскидку, то примерно так:


Блин... Упустил главное... Пошёл переписывать пост... ))

 

[vasilych]

Во, вроде так:
var i, sum, n: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
read ;
a:=n;
if a<0 then
sum:=sum+a;
end;
write (sum);
end.


Пусть меня поправят профессионалы.

 

[Тимур Столицын]

Всё правильно, но почти. В паскале нужно задать начальное значение переменной, прежде чем что-либо с ней делать. Т.е., перед циклом for мы добавляем "sum := 0", иначе "sum := sum + a" не будет работать
Так, на будущее.

 

[AlexZir]

vasilych, в Pascal при обращении к элементам массива индексы нужно указывать.

const n=10;
var a: array[1..n] of integer;
     s,i: integer;
begin
    s:=0;
    for i:=1 to n do begin
       readln(a[i]);
       if a[i]<0 then inc(s,a[i]);
    end;
    writeln('Summa negativ elements ',s);
end.

А вообще надо было начать с вопроса про язык программирования, может, нужно было на C++ или Python написать.