Выяснить количество расположенных последовательно положительных элементов

@Koshka_12 · Регистрация: 29.02.2016

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

#pascal
Выясните количество расположенных последовательно положительных элементов, которыми заканчивается линейный массив.

@ZX Spectrum-128 · 01.03.2016, 19:23

Pascal

program positive;
const
  n=15;
var
  a:array [1..n] of integer;
  i,k:integer;
begin
  randomize;
  for i:=1 to n do
    begin
      a[i]:=-n div 2 + random(n);
      write(a[i]:4);
    end;
  writeln;
  k:=0;
  for i:=n downto 1 do
    if a[i]<=0 then
      break
    else
      inc(k);
  writeln(k);
  readln;
end.

@Koshka_12 · 01.03.2016, 22:17 **[ТС]**

спасибо большое

@Koshka_12 0 / 0 / 0 Регистрация: 29.02.2016 Сообщений: 3
		1
	Выяснить количество расположенных последовательно положительных элементов 01.03.2016, 18:17. Показов 609. Ответов 2 Метки нет (Все метки) #pascal Выясните количество расположенных последовательно положительных элементов, которыми заканчивается линейный массив. 0

@Koshka_12 0 / 0 / 0 Регистрация: 29.02.2016 Сообщений: 3
	01.03.2016, 22:17 [ТС]	3
	спасибо большое 0

Опции темы