| Автор | Сообщение |
|
|
| Модератор 
|
Не зарегистрирован
Зарегистрирован: 01.01.70
Рейтинг:
0
|
|
Отправлено: 16.09.05 14:39. Заголовок: Turbo Pascal
а!!! Друзтя мои! спасайте-помогайте! Мне надо 2 задачи по поаскалю решить!!! помогите, пожалуйста!
1. В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов.
2. Дана последовательность действительных чисел. Выяснить, будет ли она возрастающей.
Спасиите меня!!!
|
 |
Профиль
Цитата
Ответить
|
|
Ответов - 4
[только новые]
|
|
|
|
| Рядовой
|
Не зарегистрирован
Зарегистрирован: 01.01.70
Рейтинг:
0
|
|
Отправлено: 16.09.05 23:38. Заголовок: Re:
1.В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов.
program zadacha_1;
uses crt;
var
a:array[1..50] of integer;
b:array[1..50] of integer;
i,j,n:integer; {переменные-счетчики, кол-во чисел}
begin
clrscr;
writeln('введите кол-во чисел ');
readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); {ввод элементов массива}
readln(a);
end;
j:=0;
for i:=1 to n do begin
if a=0 then begin {условие: если элемент массива равен нулю}
j:=j+1; {то: увеличиваем переменную-счетчик}
a:=i; {и: присваиваем элементу нового массива номер позиции }
writeln('массив, сост. из номеров позиций нулевых элементов b[',j,']=',a);
readln;
end;
end;
end.
|
|
Профиль
Цитата
Ответить
|
|
|
| Рядовой
|
Не зарегистрирован
Зарегистрирован: 01.01.70
Рейтинг:
0
|
|
Отправлено: 16.09.05 23:45. Заголовок: Re:
|
|
Профиль
Цитата
Ответить
|
|
|
| Модератор
|
Не зарегистрирован
Зарегистрирован: 01.01.70
Рейтинг:
0
|
|
Отправлено: 20.09.05 13:50. Заголовок: Re:
Валера! Зайчик мой! Я тебе ЛЮБЛЮ!!!!!!
|
|
Профиль
Цитата
Ответить
|
|
|
| Рядовой
|
Не зарегистрирован
Зарегистрирован: 01.01.70
Рейтинг:
0
|
|
Отправлено: 20.09.05 14:05. Заголовок: Re:
|
|
Профиль
Цитата
Ответить
|
|
- участник сейчас на форуме