Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 193256
14.05.2018, 10:00
0.00 руб.
0 1 1
Компьютеры Программирование
Уважаемые эксперты! Помогите решить:
1. В одномерном массиве, состоящем из N действительных элементов, вычислить:
- минимальный элемент массива;
- сумму элементов массива, расположенных между первым и последним положительными элементами

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
15.05.2018, 10:46
общий
это ответ
Здравствуйте, lalka!

[code lang=pascal h=200]const
n=10;
var
a:array[1..n]of real;
b,c:integer;
d:real;
begin
for b:=1 to n do
begin
a[b]:=30*random-25;
write(a[b]:10:5);
end;
writeln;
c:=1;
for b:=2 to n do
if a[c]>a[b]then c:=b;
writeln('minimum a[',c,']:=',a[c]:10:5);
b:=1;
while(b<=n)and(a[b]<=0)do inc(b);
c:=n;
while(c>0)and(a[c]<=0)do dec(c);
d:=0;
while b<=c do
begin
d:=d+a[b];
inc(b);
end;
if c>0 then writeln('summa:=',d:10:5)
else writeln('positive numbers not found');
end.[/code]
Удачи!
5
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа