В массив R переписать номера элементов массива P(N)

@Zevop · Регистрация: 04.06.2019

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

В массив R переписать номера элементов массива P(N), для кото-рых выполняется условие: соседство двух положительных чисел.

@Puporev · 04.06.2019, 10:57

Pascal

uses crt;
var p,r:array[1..40] of integer;
    n,m,i:integer;
begin
clrscr;
repeat
write('Введите размер массива Р от 2 до 20 n=');
readln(n);
until n in[2..20];
randomize;
for i:=1 to n do
 begin
  p[i]:=-10+random(21);
  write(p[i]:4);
 end;
writeln;
m:=0;
i:=1;
while i<n do
if (p[i]>0)and(p[i+1]>0)then
 begin
  inc(m,2);
  r[m-1]:=i;
  r[m]:=i+1;
  inc(i,1);
 end
else inc(i);
writeln('Номера положительных элементов, стоящих рядом');
if m=0 then write('Таких элементов нет')
else
 begin
  for i:=1 to m do
  if odd(i) then write(r[i],'-')
  else
   begin
    write(r[i]);
    if i<m then write(',');
   end;
 end;
readln
end.

@Zevop 0 / 0 / 0 Регистрация: 04.06.2019 Сообщений: 1
		1
	В массив R переписать номера элементов массива P(N) 04.06.2019, 09:48. Показов 462. Ответов 1 Метки pascal abc, pascal abc net (Все метки) В массив R переписать номера элементов массива P(N), для кото-рых выполняется условие: соседство двух положительных чисел. 0

Опции темы