В целочисленном массиве найти номер последнего отрицательного элемента

@Натали55 · Регистрация: 29.01.2015

В целочисленном массиве найти номер последнего отрицательного элемента. Удалить этот элемент из массива

@Puporev · 13.01.2016, 19:09

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,ip:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив');
ip:=0;
for i:=1 to n do
 begin
  a[i]:=-25+random(51);
  write(a[i]:4);
  if a[i]<0 then ip:=i;
 end;
writeln;
if ip=0 then write('В массиве нет отрицательных элементов')
else
 begin
  writeln('Последний отрицательный элемент=',a[ip],' его индекс=',ip);
  if ip<n then
  for i:=ip to n-1 do
  a[i]:=a[i+1];
  n:=n-1;
  writeln('Его удаление');
  for i:=1 to n do
  write(a[i]:4);
 end;
readln
end.

@Натали55 0 / 0 / 0 Регистрация: 29.01.2015 Сообщений: 65
		1
	В целочисленном массиве найти номер последнего отрицательного элемента 13.01.2016, 18:21. Просмотров 1068. Ответов 1 Метки нет (Все метки) В целочисленном массиве найти номер последнего отрицательного элемента. Удалить этот элемент из массива 0

Опции темы

В целочисленном массиве найти номер последнего отрицательного элемента

Решение