Найти в массиве два соседних положительных элемента

@Koti · Регистрация: 26.02.2017

Author24 — интернет-сервис помощи студентам

Вывести первую пару и последнию пару. Pascal

@Puporev · 26.02.2017, 13:44

Pascal

uses crt;
var a:array[1..100] of integer;
    n,i,i1,i2,k:integer;
begin
clrscr;
randomize;
repeat
write('Введите размет массива от 4 до 100 n=');
readln(n);
until n in [4..100];
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  write(a[i]:4);
 end;
writeln;
i1:=0;
i2:=0;
for i:=1 to n-1 do
if(a[i]>0)and(a[i+1]>0)then
if i1=0 then i1:=i
else i2:=i;
if i1=0 then write('Нет пар соседних положительных элементов')
else
 begin
  writeln('Первая пара ',a[i1],' ',a[i1+1]);
  if i2=0 then write('Нет второй пары соседних положительных элементов')
  else writeln('Последняя пара ',a[i2],' ',a[i2+1]);
 end;
readln
end.

@Koti 0 / 0 / 0 Регистрация: 26.02.2017 Сообщений: 1
		1
	Найти в массиве два соседних положительных элемента 26.02.2017, 13:26. Показов 2007. Ответов 1 Метки нет (Все метки) Вывести первую пару и последнию пару. Pascal 0

	26.02.2017, 13:44

Найти в массиве два соседних положительных элемента

Решение