В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
ufkvkvkg
ufkvkvkg
19.06.2020 13:22 •  Информатика

Дан массив, состоящий из 17 элементов. Заполнить его целыми числами из отрезка [58;98].

Вычислить:

-Количество элементов, больших некоторого числа В;

-произведение пяти первых элементов;

-сумму четных элементов;

-сумму элементов, стоящих на нечетных местах.

, и объясните, не понимаю вообще( язык программирования паскаль)

Показать ответ
Ответ:
nikkf20111
nikkf20111
04.04.2021 00:19

Программа:

program test;

(c) NaaMan}

var b, n, s1, s2 : integer;

   p : Int64;

begin

 {Формируем массив А из 17 элементов от 58 до 98}

 var a := ArrRandomInteger(17, 58, 98);

 {Спрашиваем у пользователя число В}

 write( 'Введите число В: ');

 readln( b);

 {n - счетчик для подсчета элементов, больших В}

 {Обнуляем счетчик}

 n := 0;

 {Просматриваем каждый элемент в массиве а}

 ForEach var x in a do

   {Если он больше, чем В, по увеличиваем счетчик на 1}

   if x > b then n := n + 1;

 {Для вычисления произведения используем переменную Р}

 p := 1;

 

 {Выберем 5 первых элементов массива, от 0-го до 4-го}

 for var x :=0 to 4 do

   

   {Перемножаем}

   p := p * a[x];

   

 {Для вычисления суммы четных эл-в используем переменную S1}

 s1 := 0;

 

 {Переберем все элементы в массиве}

 foreach var x in a do

   

   {Если элемент чётный, т.е. делится на 2 без остатка,

   то прибавляем его к S1}

   if x mod 2 = 0 then

     s1 := s1 + x;

   

 {Для вычисления суммы эл-в, стоящих на нечетных местах,

 используем переменную S2}

 s2 := 0;

 

 {Просмотрим индексы массива по порядку, 17 штук, от 0 до 16}

 for var x := 0 to 16 do

   

   {Если индекс нечетный, т.е. делится на 2 с остатком,

   то складываем содержимое массива по этому индексу

   с S2}

   if x mod 2 = 1 then

     s2 := s2 + a[x];

   

 {А теперь всё это безобразие выводим на экран}

 

 {Содержимое массива А}

 writeln(a);

 

 writeln( 'Количество элементов массива, больших чем ',b, ' - ', n, ' штук');

 writeln( 'Произведение первых пяти элементов р = ', p);

 writeln( 'Сумма всех чётных эл-в массива s1 = ', s1);

 writeln( 'Сумма эл-в, стоящих на нечетных местах s2 = ', s2);

end.

Результат выполнения программы:


Дан массив, состоящий из 17 элементов. Заполнить его целыми числами из отрезка [58;98].Вычислить:-Ко
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота