Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Фиговый студент
48 / 6 / 7
Регистрация: 26.09.2013
Сообщений: 550
Записей в блоге: 1
1

Массивы

18.11.2013, 18:04. Показов 951. Ответов 2
Метки нет (Все метки)

Дано массив целых чисел. Найти разницу наибольшего и наименьшего
чисел.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2013, 18:04
Ответы с готовыми решениями:

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы...

массивы
пожалуйста срочно помогите.отрицательные элементы массива заменить на сумму.вывести преобразованный...

Массивы
Пожалуйста помогите решить задачу.: Вывести элемент массива с нечётными номерами в порядке...

Массивы
Program elem; uses crt; const n=12;m=10;p=120; type tvector=array of integer; ...

__________________
2
60 / 67 / 37
Регистрация: 29.01.2013
Сообщений: 374
Записей в блоге: 1
18.11.2013, 19:55 2
Лучший ответ Сообщение было отмечено Mr.Gadget как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program test1;
var a:array[1..255] of integer;
i,max,min,k,n:integer;
begin
randomize; {Функция "Разнообразия" случайных значений}
writeln('Введите размерность массива');
readln(n); {вводим размерность массива}
for i:=1 to n do
a[i]:=random(100)-50; {Заполняем массив случайными числами}
min:=a[1]; max:=a[1]; {Присваиваем начальное значение максимуму и минимуму}
for i:=1 to n do begin
if a[i]>max then max:=a[i]; {Если какой-то элемент массива больше, чем максимум, то он и становится максимумом}
if a[i]<min then min:=a[i]; {Если какой-то элемент массива меньше, чем минимум, то он и становится минимумом}
end;
k:=max-min; {рассчитываем разность между максимумом и минимумом}
writeln('Максимум',' ',max,' ','Минимум',' ',min);
writeln('Разница',' ',k); {Выводим разницу}
readln;
end.
1
Фиговый студент
48 / 6 / 7
Регистрация: 26.09.2013
Сообщений: 550
Записей в блоге: 1
19.11.2013, 13:45  [ТС] 3
Спасибо

Добавлено через 15 часов 52 минуты
Цитата Сообщение от Soniyagfto Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program test1;
var a:array[1..255] of integer;
i,max,min,k,n:integer;
begin
randomize; {Функция "Разнообразия" случайных значений}
writeln('Введите размерность массива');
readln(n); {вводим размерность массива}
for i:=1 to n do
a[i]:=random(100)-50; {Заполняем массив случайными числами}
min:=a[1]; max:=a[1]; {Присваиваем начальное значение максимуму и минимуму}
for i:=1 to n do begin
if a[i]>max then max:=a[i]; {Если какой-то элемент массива больше, чем максимум, то он и становится максимумом}
if a[i]<min then min:=a[i]; {Если какой-то элемент массива меньше, чем минимум, то он и становится минимумом}
end;
k:=max-min; {рассчитываем разность между максимумом и минимумом}
writeln('Максимум',' ',max,' ','Минимум',' ',min);
writeln('Разница',' ',k); {Выводим разницу}
readln;
end.
Как с использованием процедуры вывести массив на экран?Где и что нужно добавить?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2013, 13:45

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Массивы
Написать программу, которая заменяет все заглавные буквы строчными, а строчные – заглавными в...

массивы
ребят послезавтра зачет я уже 2 дня ломаю голову над след. задачами а вам наверно делов на 5...

Массивы?
program lab8; uses crt; type mas=array of integer; procedure Massiv(var...

Массивы
Подскажите как в программе записать следующие строки? Определить с помощью FUNCTION для каждого...


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

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

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