39

Помогите пожалуйстаа решить задачу массив a [i]=15-4i подсчитать количество…

27 февраля 2023

Помогите пожалуйстаа решить задачу массив a [i]=15-4i подсчитать количество отрицательных членов и выдать их номера?

категория: информатика

42

var a: array[1… 15] of integer; i, count: integer; begin count: =0; writeln ('Индексы отрицательных элементов: '); for i: =1 to 15 do begin a[i]: =15 — 4*i; if a[i] < 0 then begin inc (count); write (i, '); end; end; writeln; writeln ('Вего отрицательных элементов — ', count); end.

Знаете ответ?

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