Faith13 | Дата: Понедельник, 12.12.2011, 22:45 | Сообщение # 1 |
Лейтенант
Группа: Новичок
Сообщений: 14
[ 0 ]
Статус: Offline
| Третий отрицательный элемент заменить максимальным.
|
|
| |
Slovin | Дата: Вторник, 13.12.2011, 01:05 | Сообщение # 2 |
Рядовой
Группа: Новичок
Сообщений: 3
[ 1 ]
Статус: Offline
| prorgam nazvanie; uses crt; var i,b,n:inreger; a:array[1..1000]of real; x,c:real; begin clrscr; b:=0; write('n=');readln(n); {где n-число элементов массива} {выводим массив} for i:=1 to n do {выводим массив и находим 3-е отрицательное} begin write('x=');readln(x); a[i]:=x; if x<0 then b:=b+1; if b=3 then b:=i; end; с:=a[1]; {выводим ещё раз массив, чтобы найти максимальное значение} for i:=2 to n do begin if c>a[i] then c:=a[i]; end; {присваиваем максимальное значение 3-му отрицательному} a[d]:=c; end.
Добавлено (13.12.2011, 01:05) --------------------------------------------- можно было обойтись и 1-м циклом, но код бы получился несколько запутанным
Сообщение отредактировал Slovin - Вторник, 13.12.2011, 01:50 |
|
| |