22 Мая 2012 - Сайт заготовки для Дельфи&Pascal

Меню сайта

Поиск по сайту

Контакты

как написать программу заказ работы на Pascal Заказ работы на Delphi пишите вопросы по Delphi / Pascal ICQ 368-254-335

on-line Консультация Pascal/Delphi

Вконтакте

МТС Уфа +7 917 74 25 326 мой сайт //netsoftware.ucoz.ru

Наш опрос

Добавить

Календарь

Полезные ссылки

История интернета

Интересные факты

Переводчик от google

Официальный блог

Сообщество uCoz

FAQ по системе

Инструкции для uCoz

Теги

Автор динамически создаваемые Примеры работ публикатор Alpha. draw Обрисовка n-угольника рисуем квадрат рисуем треугольник рисуем шестиугольник Dlina Ugol векторное изображение Угол наклона Pascal ABC PascalABC. Firebird sql программа выполнения скриптов по ра delphi пересечение Одномерный массив Формирование массива в заданных диа Целочисленные массивы Элементы кратные числу Горячие клавиши в Delphi получаем IP адрес Получение слова из строки Процедура выравнивания регистров Спискок знаков препинания Преобразовать строку пример работы со строками cosh sinh tanh delphi заготовки delphi примеры работ Proxy прокси Combobox myInputbox Pascal Mod pascal mod операторы pascalб стандартные опера CSV CSV файл StringGrid TStringGrid задачи матрицы

Статистика

Архив записей

Число on-line

Поддержка сайта

Хотите помочь сайту (работой) пишите в аську или контакт

50 руб.

yandex 410011013695809
qiwi 9177425326
R132677785853

Главная »

Простые задачи Pascal ABC Массивы

{
Дан одномерный массив А(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(
		... 
		
			Читать дальше »


	
	
		
			
			
		
		
			Просмотров:
			4757
		
		 | 
		
			Добавил:
			NetSoftWare
		
		 | 
		
			Дата:
			22.05.2012
		
		 | 
		Комментарии (0)