Найти сумму положительных частей вектора C[15].Помогите составить программку в pascalabc

Отыскать сумму положительных частей вектора C[15].
Помогите составить программу в pascalabc

Задать свой вопрос
Варвара Незавибатько
Тупой вопрос. Вектор=линейный массив?
1 ответ
//Проверил. Да, одинаково.
//Pascal ABC.NET 3.1 сборка 1219

Const
 n=15;

Var
 ar:array[1..n] of integer;
 i,s:integer;
begin
randomize;
 writeln('Array:');
 for i:=1 to n do
  begin
   ar[i]:=random(-10,10);
   write(ar[i]:4);
   if ar[i]gt;0 then s:=s+ar[i];
  end;
 writeln;
 write('Result:',s);
end.

Пример работы программки:
Array:
   3  -7   0   9  -9   6  -1   0   1   0  -7   9  -9  -5  -8
Result:28
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт