Вопрос по информатике:
Дан вектор B[1:20].
А)Найти сумму S элементов в диапозоне [0:5].
Б)Найти произведение Р отрицательных элементов.
В)Поменять местами минимальный и максимальный элементы вектора.
Г)Удалить минимальный элемент.
Помогите пожалуйста решить.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.04.2015 16:25
- Информатика
- remove_red_eye 17478
- thumb_up 48
Ответы и объяснения 1
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] 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.
- 21.04.2015 16:43
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.