64

Создать массив из 12 элементов на промежутке [-8; 10] вынести строчку…

sanek 18 июля 2022

Создать массив из 12 элементов на промежутке [-8; 10] вынести строчку на экран.1) подсчитать количество элементов в массиве, значения которых больше 3,2) найти сумму всех отрицательных элементов массива.3) заменить все отрицательные элементы массива их индексами. Вывести новый массив на экран 4) найти максимальный элемент

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

35

const n=12; var a: array[1… n] of integer; i, count, s, max: integer; begin write ('Массив до: '); for i: =1 to n do begin a[i]: =random (19) — 8; write (a[i], '); if (a[i] > max) then max: =a[i]; if (a[i] > 3) then inc (count) else if (a[i] < 0) then begin s: =s+a[i]; a[i]: =i; end; end; writeln; write ('Массив после: '); for i: =1 to n do write (a[i], '); writeln; writeln ('1) Кол-во эл. В массиве, значения которых > 3: ', count); writeln ('2) Сумма всех отрицательных эл. Массива: ', s); writeln ('3) Макс. Элемент: ', max); end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

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