|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
11.05.2014, 19:18 | #1 |
Новичок
Джуниор
Регистрация: 11.05.2014
Сообщений: 5
|
Pascal ABC.
Это всё одна задача.
1)Определить количество отрицательных элементов a[i]э[-100;100]. 2)Определить сумма элементов, принадлежащих интервалу [20;95]. 3)Все элементы, значения которых >=17, заменить числом 71. |
11.05.2014, 20:04 | #2 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Не вижу ничего сложного в задаче, решается "на два пальца ...". Собственно, сами что-то пытались сделать?
|
11.05.2014, 20:35 | #3 |
Новичок
Джуниор
Регистрация: 11.05.2014
Сообщений: 5
|
Конечно, пытался. Поэтому обратился за помощью.
|
11.05.2014, 20:40 | #4 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Вот и прекрасно! Значит, по крайней мере, заполнение массива у вас есть?
|
11.05.2014, 20:45 | #5 |
Новичок
Джуниор
Регистрация: 11.05.2014
Сообщений: 5
|
Массив есть, но составлен неверно.
|
11.05.2014, 20:49 | #6 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Так покажите код, подправим.
|
11.05.2014, 20:51 | #7 |
Новичок
Джуниор
Регистрация: 11.05.2014
Сообщений: 5
|
Var
a: Array[1..100] of Integer; i,k1,k2,n,s: Integer; BEGIN Writeln('Введите кол-во элементов: '); Readln(n); For i:=1 to n do begin Writeln('a[',i,']='); Readln(a[i]); If a[i]<0 Then Inc(k2); end; Writeln('Кол-во отрицательных чисел: ',k2); Readln; k:=0; s:=0; for i:= 1 to 75 do if (a[i]>=20) and(a[i]<=95) then begin s:=s+a[i]; k:=k+1; end; for i:=1 to n do if a[i] >= 17 then a[i]:=71; END. Не понимаю, что не получается... |
11.05.2014, 21:05 | #8 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Код:
|
11.05.2014, 21:19 | #9 |
Новичок
Джуниор
Регистрация: 11.05.2014
Сообщений: 5
|
Спасибо огромное.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Построить алгоритм в виде блок-схем и написать соответствующую программу на языке Pascal / Pascal ABC | IgorMyakota | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 06.03.2014 07:32 |
pascal abc, pascal turbo. выборка данных из одного .txt в другой | ТипичныйСтудент | Помощь студентам | 6 | 27.04.2013 15:29 |
Программы в Pascal, среда pascal ABC. Лабораторные работы | Одинокая Волчица | Фриланс | 8 | 10.02.2012 20:09 |
Неудобство ABC Pascal и глюк Borland Pascal | proser93 | Помощь студентам | 0 | 19.11.2011 19:01 |
Turbo Pascal or Pascal ABC | Ikram | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 27.04.2010 13:44 |