![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
TP7.0 |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 17 Пол: Мужской Реальное имя: Саша Репутация: ![]() ![]() ![]() |
Написал задачу, но где то ошибка, подскажите пожалуйсто что не так.
Задача: Из массива B, содержащего 18 элементов, сформировать массив по правилам: C[k]=-B[k], 1<=k<=9 C[k]=B[k]/k, 10<=k<=18 Код Program pr3; Uses crt; const n=18; h=19; type mas1=array[1..n] of integer; mas2=array[1..n] of real; var B:mas1; C:mas2; k:integer; begin Clrscr; randomize; For k:=1 to n do B[k]:=random(h); For k:=1 to n do write(B[k],' '); For k:=1 to n do if k>9 then C[k]:=B[k]/k else C[k]:=-B[k]; Writeln; For k:=1 to n do write(C[k]:1:0,' '); readkey; end. Ответы проверяю, не подходят=( Сообщение отредактировано: TP7.0 - 4.01.2008 19:39 |
![]() ![]() |
![]() |
Текстовая версия | 20.07.2025 2:33 |