Вопрос № 159184: Здравствуйте уважаемы эксперты. Помогите пожалуйста с простейшей задачей на паскале Просто я как студент стройфака, не разбираюсь в програмировании Даны массив чисел Т=(t1,t2,...,tm) и число А. Увеличить все положительные элементы массив...
Вопрос № 159.184
Здравствуйте уважаемы эксперты. Помогите пожалуйста с простейшей задачей на паскале Просто я как студент стройфака, не разбираюсь в програмировании
Даны массив чисел Т=(t1,t2,...,tm) и число А. Увеличить все положительные элементы массива Т на А.
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Петров Дмитрий Александрович!
Программа в приложении. Если будут вопросы, обращайтесь в мини-форум. Удачи!
Приложение:
--------- Итерация от человека, рекурсия — от Бога (Питер Дойч)
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 30.01.2009, 14:38
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 242549 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5
Отвечает: Motoden
Здравствуйте, Петров Дмитрий Александрович! Попытался написать с комментариями.
Приложение:
--------- не забудьте поставить оценку!:)
Ответ отправил: Motoden (статус: 3-й класс)
Ответ отправлен: 30.01.2009, 17:01
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 242558 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает: Alex2008pro
Здравствуйте, Петров Дмитрий Александрович!
program vopros_159184; const Nmax=10; var T:array[1..Nmax]Of integer; i,n,a:integer; begin writeln('введи число а'); readln(a); repeat writeln('введите кол-во элементов <= ',Nmax); readln(n); until (n>0)and(n<=Nmax); writeln('введи данные'); for i:=1 to n do readln(t[i]); for i:=1 to n do if t[i]>0 then T[i]:=T[i]+a; for i:=1 to n do writeln(t[i]); end.
Ответ отправил: Alex2008pro (статус: 1-й класс)
Ответ отправлен: 30.01.2009, 19:46
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 242572 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.