а!!! Друзтя мои! спасайте-помогайте! Мне надо 2 задачи по поаскалю решить!!! помогите, пожалуйста! 1. В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов. 2. Дана последовательность действительных чисел. Выяснить, будет ли она возрастающей. Спасиите меня!!!
Не зарегистрирован
Зарегистрирован: 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.
Все даты в формате GMT
3 час. Хитов сегодня: 0
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет