Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Rammstalex
1 / 1 / 1
Регистрация: 06.11.2012
Сообщений: 46
1

Процедуры в одномерном массиве

08.01.2013, 16:45. Просмотров 214. Ответов 0
Метки нет (Все метки)

Помогите пожалуйста написать эту прогу с процедурами :

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
CONST
 N=25;
 y1=-12;
 y2=-4;
VAR
 A:Array[1..N] of Integer;
 i,Mx,KolOtr:Integer;
 
BEGIN
 Randomize;
 For i:=1 to N do
  begin
   A[i]:=-18+Random(29);
   Write(A[i]:4);
  end;
 Writeln;
 
 Write('Pervij polojitelnuj element ');
 i:=0;
 Repeat
  Inc(i);
 Until A[i]>0;
 Writeln(A[i]);
 
 
 Mx:=-25;
 For i:=1 to N do
  If ((A[i] mod 2)=0) and (A[i]>Mx) then Mx:=A[i];
 Writeln('Maximalnuj credi chetnix elementov massiva ',Mx);
 
 
 KolOtr:=0;
 For i:=1 to N do
  If (A[i]>=y1) and (A[i]<=y2) then Inc(KolOtr);
 Writeln('Kolichectvo otricatelnix chicel ot ',y1,' do ',y2,' ravno ',KolOtr);
 
END.
Добавлено через 4 часа 48 минут
*тему в шапку*
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2013, 16:45
Ответы с готовыми решениями:

Найти наименьший элемент в одномерном массиве с помощью процедуры.
Найти наименьший элемент в одномерном массиве с помощью процедуры. Масивв...

В первом одномерном массиве найти все нечетные элементы, во втором одномерном массиве найти все четные элементы и из них сформировать массив
1. Ввести одномерный массив используя генератор случайных чисел. Одномерный...

В одномерном массиве состоящем из n вещественных элементов сделать бинарный поиск числа А в упорядоченном массиве
Всем привет помогите решить задачи 1) В одномерном массиве состоящем из n...

В одномерном массиве
В одномерном массиве, состоящем из n вещественных элементов, вычислить...

Вывести в одномерном массиве
Всё на картинках

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2013, 16:45

Сложение в одномерном массиве
Помогите написать программу, которая сначала вводит десять чисел в одномерный...

Произведение в одномерном массиве
Зайки, подскажите почему произведение неправильно считает? Условие: найти...

перестановка элементов в одномерном массиве
задан одномерный массив C(N). переместить в конец массива элементы, которые...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru