| ← Май 2018 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
6
|
|
|---|---|---|---|---|---|---|
|
7
|
8
|
9
|
10
|
11
|
12
|
13
|
|
14
|
15
|
16
|
17
|
20
|
||
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
|
28
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Уважаемые эксперты! Помогите решить:
Дата отправки: 14.05.2018, 10:00 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, lalka! Код (Pascal) :: выделить код 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.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
