| ← Декабрь 2016 → | ||||||
|
1
|
2
|
4
|
||||
|---|---|---|---|---|---|---|
|
5
|
6
|
7
|
8
|
9
|
10
|
11
|
|
12
|
14
|
15
|
16
|
17
|
18
|
|
|
19
|
20
|
21
|
22
|
25
|
||
|
26
|
27
|
28
|
31
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 25.12.2016, 15:56 Консультирует mklokov (2-й класс): Здравствуйте, dinar.ahmetov.2598! Код (Pascal) :: выделить код
Const N=10;
Var a, b: array[1..N] of Integer;
i, PosMaxNegative: Integer;
begin
PosMaxNegative:=0;
for i:=1 to N do
begin
read(a[i]);
if a[i]<0 then
PosMaxNegative:=i;
end;
writeln;
if PosMaxNegative>0 then
begin
for i:=1 to n do
if (a[i] < 0) and (a[i]>a[PosMaxNegative]) then
PosMaxNegative:=i;
for i:=1 to N do
begin
if a[i]>0 then{тут ошибка искались отрицательные числа, а нужны были положительные}
b[i]:=a[PosMaxNegative]
else
b[i]:=a[i];
write(b[i],' ')
end
end
else
write('Нет ни одного отрицательного числа')
end.Примеры работы кода(см. комментарий в коде: был перепутан ">" и "<" К.Зенченко): Ввод: Код :: выделить код 5 11 -1 9 -3 -7 8 4 -2 2 Вывод: Код :: выделить код 5 11 -1 9 -1 -1 8 4 -1 2 Ввод: Код :: выделить код 1 1 2 3 4 5 6 7 8 9 Вывод: Код :: выделить код Нет ни одного отрицательного числа
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
