|
Вопрос # 4 985/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Срочно нужно решить задачу, поэтому надеюсь на вашу помощь.
. Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные значения. Опишите на языке программирования Pascal алгоритм, который находит и выводит номер третьего положительного элемента массива (если из массива вычеркнуть все неположительные элементы, этот элемент стоял бы в получившемся массиве на третьем месте). Если в массиве меньше, чем три положительных элемента, вывести об этом сообщение.
 |
Вопрос задал: Love_Bars (статус: Посетитель)
Вопрос отправлен: 30 января 2011, 15:16
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: puporev
Здравствуйте, Love_Bars!
Код программы в приложении.
Приложение: Переключить в обычный режим- uses crt;
- const n=30;
- var a:array[1..n] of integer;
- i,i3,k:byte;
- begin
- clrscr;
- randomize;
-
- for i:=1 to n do
- begin
- a[i]:=random(10)-5;
- write(a[i]:4);
- end;
- writeln;
- writeln;
-
-
-
-
- begin
-
- begin
-
-
- end
-
-
- end;
-
-
- readln
- end.
 |
Ответ отправил: puporev (статус: 2-ой класс)
Время отправки: 30 января 2011, 19:58
Оценка за ответ: 5
Комментарий к оценке: Большущее спасибо!
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 30 января 2011, 23:06; участников в обсуждении: 4.
30 января 2011, 15:46: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором Ерёмин А.А.
|
min@y™ (статус: Доктор наук), 30 января 2011, 17:26 [#1]:
Ну, таки, чем помочь-то? В чём проблема? Что не получается? Что подсказать??!!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Адмирал (статус: Посетитель), 30 января 2011, 17:35 [#2]:
он(она) просит написать программу
|
|
|
Love_Bars (статус: Посетитель), 30 января 2011, 18:42 [#3]:
Да, именно. Прошу написать программу.
|
|
bugmenot (статус: 3-ий класс), 30 января 2011, 19:41 [#4]:
за срочность +50% Ж)
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
min@y™ (статус: Доктор наук), 30 января 2011, 20:34 [#5]:
Пиво ставишь? Сколько?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
bugmenot (статус: 3-ий класс), 30 января 2011, 23:06 [#6]:
поздно, задемпинговали :-Р
хотя подлинной программы от bugmenot это не заменит Ж-)
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
