Решите одно из предложенных, умоляю дан массив А5 отыскать сумму и

Решите одно из предложенных, умоляю дан массив А5 отыскать сумму и количество положительных элементов дан массив А5 найти количество отрицательных частей дан массив А6 найти количество положительных частей

Задать свой вопрос
1 ответ
var A:array [1 .. 5 ] of integer; k,count:integer; begin for k:=1 to 5 do begin write("Введите А (,k,) ); readln(A[ k ]); end; count:=0; for k:=1 to 5 do if A[ k ] lt; 0 then inc(count); writeln(Отрицательных частей = , count); end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт