В одномерном массиве А , состоящий из N действительных элементов ,

В одномерном массиве А , состоящий из N действительных элементов , вычислить :
a ) сумму отрицательных частей массива ;
b ) количество частей , удовлетворяющих условию 7 Pascal

Задать свой вопрос
Комлюгина Людмила
можно поконкретнее про пункт б?
Манагарова Тамара
количество частей , удовлетворяющих условию -7< i
Борис Цуряк
b)количество элементов , удовлетворяющих условию -7
Василиса Байбуз
-7
Тимур Бухмин
да
Лидия Шан
готово
1 ответ
Const n=10;
var a:array[1..n] of real;
i,k:integer;
s:real;
begin
s:=0; k:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]lt;0 then s:=s+a[i];
if (a[i]lt;5) and (a[i]gt;-7) then inc(k);
end;
writeln(s,' ',k);
end.
Пашка Гейхман
заместо inc(k) можно написать k:=k+1. сущности дела не меняет
Славян Веекерт
не работает
Кристина Анимуцкая
что конкретно?
София Сенюшенкова
запускаешь программку и ничего не происходит
Диман Брезгулевский
изменил. забыл вывод счётчика.
Вадим Лимпрехт
хз,не желает, у тебя работает ?кинь вид программы какой вышел
Sergej Otrjashhenkov
я же в ответ кинул скрин
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт