Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 07.02.2013
Сообщений: 3
1

Дан массив чисел W=(w1,w2,.,wm). Найти номер последнего по порядку отрицательного элемента массива (Паскаль или Бэйсик)

07.02.2013, 21:21. Просмотров 900. Ответов 2
Метки нет (Все метки)


Здравствуйте, необходима помощь. Нужно представить схему алгоритма и текст программы (бэйсик или паскаль).

Дан массив чисел W=(w1,w2,...,wm). Найти номер последнего по порядку отрицательного элемента массива.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.02.2013, 21:21
Ответы с готовыми решениями:

Дан массив из N целых чисел. Найти номер последнего элемента, который больше 10
Дан массив из N целых чисел. Найти номер последнего элемента, который больше 10.

Дан массив состоящий N (> 1) целых чисел. Найти среднее значение первого и последнего элемента массива
Дан массив состоящий N (> 1) целых чисел. Найти среднее значение первого и последнего элемента...

Дан массив из N целых чисел, найти номер последнего отрицательного элемента
Дан массив из N целых чисел, найти номер последнего отрицательного элемента двумя способами...

Найти номер последнего отрицательного элемента массива
1. Дан одномерный массив, задающийся генератором случайных чисел. Найти номер последнего...

__________________
Помогаю в написании студенческих работ здесь.
2
261 / 236 / 161
Регистрация: 10.12.2011
Сообщений: 513
08.02.2013, 00:41 2
Лучший ответ Сообщение было отмечено Nadini как решение

Решение

Если вам на бейсике надо, то думаю вам надо создать ещё одну тему. Но только в соответствующем разделе.

На паскале.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Uses crt;
const Nmax = 100;
var
 A: array [ 1 ..Nmax ] of integer;
 i, index, n: byte;
begin
clrscr;
randomize;
 
repeat
 write('Enter n:');readln(n);
until ( n in [ 1 .. 100 ] );
 
writeln('Input array:');
for i:=1 to n do begin
     A[i]:=random(21)-10;
     write(A[i]:3);
end;
 
for i:=1 to n do if A[i] < 0 then index:=i;
 
writeln;
writeln('last =',index);
 
readkey;
end.
1
0 / 0 / 0
Регистрация: 07.02.2013
Сообщений: 3
08.02.2013, 12:56  [ТС] 3
Огромнейшее спасибо! Выручили)))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.02.2013, 12:56

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти номер последнего отрицательного элемента
2)найти номер последнего отрицательного элемента.

Дан массив натуральных чисел. Заменить числа их факториалами. Найти номер последнего положительного элемента массива
Дан массив натуральных чисел. Заменить числа их факториалами. Найти номер последнего положительного...

Найти номер последнего отрицательного элемента массива
Дан массив С(13).Найти номер последнего отрицательного элемента массива. Как раз не могу найти...

Найти номер последнего четного и отрицательного элемента одномерного массива
Найти номер последнего четного и отрицательного элемента одномерного массива, то вычислить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.