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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.05.2012, 16:34   #1
darkneron
Пользователь
 
Регистрация: 21.05.2012
Сообщений: 15
Радость Массив

Дан одномерный массив А(n), N=25, заданный случайным образом.

Последний раз редактировалось darkneron; 22.05.2012 в 19:18.
darkneron вне форума Ответить с цитированием
Старый 22.05.2012, 16:43   #2
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Ищи по форуму, было.
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 22.05.2012, 16:53   #3
darkneron
Пользователь
 
Регистрация: 21.05.2012
Сообщений: 15
По умолчанию

Искал, не нашел.
darkneron вне форума Ответить с цитированием
Старый 22.05.2012, 17:04   #4
denisbrain
Форумчанин
 
Регистрация: 29.05.2011
Сообщений: 449
По умолчанию

Цитата:
Сообщение от darkneron Посмотреть сообщение
Искал, не нашел.
Код:
{
Дан одномерный массив А(n), N=25, заданный случайным образом.
Вычислить количество отрицательных элементов данного массива.
Найти наименьший положительный элемент массива.
спецально для http://netsoftware.ucoz.ru

}
uses crt;
Const
  N = 25;
  var
  a:array [1..n] of integer;
  x:integer;
  minA:integer;
  countElement:integer;
  
  begin
  clrscr;
  Writeln('Дан одномерный массив А(n)');
    for X:=1 to n do begin
     a[x]:=-15+random(30);
     if a[x]>0 then minA:=a[x];
     write(a[x]:4);
    end;
    x:=n;
    countElement:=0;
    Writeln('');

    for X:=1 to n do begin
     if a[x]<0 then countElement:=countElement+1;

     if (a[x]>0) and  (minA>a[x]) then minA:=a[x];
    end;
    
    Writeln('Количество отрицательных элементов данного массива  ',countElement:2);
    Writeln('Наименьший положительный элемент массива равен ',minA:2);
    
    
  end.
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype
denisbrain вне форума Ответить с цитированием
Старый 22.05.2012, 18:12   #5
darkneron
Пользователь
 
Регистрация: 21.05.2012
Сообщений: 15
По умолчанию

Спасибо большое!
darkneron вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С# задан массив 5х5. сформировать массивы А и В. в массив А поместить элементы с четными индексами, в массив В с нечетны Koksa Помощь студентам 0 10.10.2011 11:26
Запись координат в массив в реал тайм, Как записать координаты в массив Dark19 Visual C++ 2 21.06.2011 18:45
Из массив А получить массив В, удвоив все нечётные элементы удвоены ( на Pascal) KARTER Помощь студентам 1 18.06.2011 19:58
Массив - Нужно написать массив и распечатать на экран с конца в начало(язык С++) econ Помощь студентам 1 29.05.2011 22:02