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

@Nadini · Регистрация: 07.02.2013

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

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

@Leshak · 08.02.2013, 00:41

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

На паскале.

Pascal

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.

@Nadini · 08.02.2013, 12:56 **[ТС]**

Огромнейшее спасибо! Выручили)))

@Nadini 0 / 0 / 0 Регистрация: 07.02.2013 Сообщений: 3
		1
	Дан массив чисел W=(w1,w2,.,wm). Найти номер последнего по порядку отрицательного элемента массива (Паскаль или Бэйсик) 07.02.2013, 21:21. Просмотров 900. Ответов 2 Метки нет (Все метки) Здравствуйте, необходима помощь. Нужно представить схему алгоритма и текст программы (бэйсик или паскаль). Дан массив чисел W=(w1,w2,...,wm). Найти номер последнего по порядку отрицательного элемента массива. 0

@Nadini 0 / 0 / 0 Регистрация: 07.02.2013 Сообщений: 3
	08.02.2013, 12:56 [ТС]	3
	Огромнейшее спасибо! Выручили))) 0

Опции темы

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

Решение