в паскалях!!!! срочно до среды!! - Форум
Вторник, 06.12.2016, 08:43
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » в паскалях!!!! срочно до среды!! (массив)
в паскалях!!!! срочно до среды!!
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
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » в паскалях!!!! срочно до среды!! (массив)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016