Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2017, 06:06   #1
Anastasiya326
Пользователь
 
Регистрация: 12.12.2017
Сообщений: 10
По умолчанию в одномерном массиве определить число соседств

Определить в одномерном числовом массиве число соседств из двух чисел
одинакового знака.
Anastasiya326 вне форума Ответить с цитированием
Старый 17.12.2017, 08:00   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var p:array[1..10] of integer;
    i,c:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   c:=0;
   For i:=1 to 9 do
      If p[i]*p[i+1]>0 then
         c:=c+1;
   Writeln(c);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В произвольно заданном одномерном массиве определить элементы, слева и справа то которых расположены меньшие значения. tron19 Помощь студентам 3 25.12.2015 15:32
Переменной t присвоить значение истина, если в одномерном массиве имеется хотя бы одно отрицательное и четное число (Паскаль) zzz99 Помощь студентам 3 13.03.2014 13:28
последовательности a(1)...a(n) определить число соседств двух чисел разного знака (написать код на visual basic) эленька Помощь студентам 0 25.04.2013 02:25
дана последовательность n действительных чисел, определить число соседств dmitriy20104 Паскаль, Turbo Pascal, PascalABC.NET 1 25.06.2012 19:06
программа находит наибольшее чётное число в данном одномерном массиве целых чисел katya111 Паскаль, Turbo Pascal, PascalABC.NET 4 18.05.2011 15:35