47

Дан вектор B[1:20]. А) Найти сумму S элементов в диапозоне [0:5]. Б) Найти произведение Р…

20 февраля 2023

Дан вектор B[1:20]. А) Найти сумму S элементов в диапозоне [0:5]. Б) Найти произведение Р отрицательных элементов. В) Поменять местами минимальный и максимальный элементы вектора. Г) Удалить минимальный элемент. Помогите пожалуйста решить.

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



55

Uses crt; var b: array [1… 20] of real; x,min,max: integer; sum,pr,t: real; begin sum: =0; pr: =1; for x: =1 to 20 do begin write ('b[',x,']: '); readln (b[x]); if b[x]<0 then pr: =pr*b[x]; end; for x: =1 to 5 do sum: =sum+b[x]; min: =1; max: =1; for x: =1 to 20 do begin if b[x]b[max] then max: =x; end; t: =b[min]; b[min]: =b[max]; b[max]: =t; for x: =max to 19 do b[x]: =b[x+1]; for x: =1 to 19 do write (b[x]: 3:0); writeln; writeln ('SUM: ',sum); writeln ('PROIZVEDENIE: ',pr); end.

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


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