Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Составить рекурсивную программу вычисления N https://www.cyberforum.ru/ pascalabc/ thread1126619.html
Составить рекурсивную программу вычисления N! на Pascal ABC .помогите пожалуйста
Pascal ABC Добавление изображений через graphABC
Привет! Подскажите как добавлять изображение через этот модуль, на примере? Я смотрел в интернете команды LoadPicture только что-то они не работают....
Pascal ABC Подсчет количества пробелов в строке Простенькая программка считает количество пробелов в строке. опыта почти нету поэтому есть вопросы на которые не могу найти ответа Интуитивно я понимаю, что происходит в этой функции но не могу понять зачем в функции, переменной count присваивается значение 0 так же не понимаю, что происходит в этом участке кода if s=' ' then count := count+1; https://www.cyberforum.ru/ pascalabc/ thread1126484.html Pascal ABC Напечатайте в алфавитном порядке согласные буквы, которые не входят ни в одно слово https://www.cyberforum.ru/ pascalabc/ thread1126471.html
Пусть дана непустая последовательность слов из строчных русских букв. Между соседними словами присутствует запятая, за последним — точка. Напечатайте в алфавитном порядке: б) согласные буквы, которые не входят ни в одно слово; заранее спасибо)!!!
Pascal ABC Найти самого старшего мужчину в группе
Помогите сделать!!! Используя следующий фрагмент программы, опишите перечисленные ниже процедуры: Type data = record number : 1..31; month : 1..12; year : 1901..1997 end; form = record
Pascal ABC Вывести на экран монитора треугольник синего цвета Вывести на экран монитора треугольник синего (Blue) цвета таким образом, чтобы он плавно перемещался от левого края экрана к правому краю и назад, после чего процесс перемещения треугольника должен повторяться https://www.cyberforum.ru/ pascalabc/ thread1126454.html
Pascal ABC Добавить сортировку в приведенный код https://www.cyberforum.ru/ pascalabc/ thread1126361.html
Вот задача, как сделать так чтобы она записывала данные из файла по алфавиту в новый файл? Как здесь добавить сортировку? Program TextFile4; {Задача. Дан файл Primer1 на диске. Считать из него информацию и записать во вновь созданный файл Primer2 } Var f, t: text; Put1, Put2, d: string; s : char; Begin Put1 := 'D:\TP7\BIN\Primer1'; {Путь к файлу Primer на диске}
Pascal ABC Если количество строк матрицы, содержащих отрицательные элементы, является четным, поменять местами первую и последнюю строку
Нужно составить программу: Матрица размерности n*m.Если количество строк , содержащих отрицательные элементы , является четным , поменять местами первую и последнюю строку , в противном случае поменять первый и последний столбец. Программа должна быть разработана методом пошаговой детализации.
Pascal ABC В матрице вычислить суммы элементов столбцов, номера которых определяются номерами положительных элементов заданного вектора Просьба помочь. а) Построить матрицу С = А * В, где А - прямоугольная матрица, размером n*m; б) в полученной матрице вычислить суммы элементов столбцов, номера которых определяются номерами положительных элементов заданного вектора. https://www.cyberforum.ru/ pascalabc/ thread1126160.html Pascal ABC Найти сумму квадратов натуральных чисел найти сумму квадратов натуральных чисел от 1, не превышающую заданное число (с использованием цикла) https://www.cyberforum.ru/ pascalabc/ thread1126154.html
Найти самого старшего и самого младшего участника соревнований Pascal ABC
Имеются два массива: в первом – фамилии участников соревнований, во втором – их возраст. Найти самого старшего и самого младшего участника. Решите,пожалуйста!
Pascal ABC Множества. Определить, есть ли в группе человек, который побывал в гостях у всех Имеется список группы (все имена различны). Определить, есть ли в группе человек, который побывал в гостях у всех. (Для каждого студента составить множество побывавших у него в гостях друзей, сам студент в это множество не входит). https://www.cyberforum.ru/ pascalabc/ thread1126000.html
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
22.03.2014, 15:43 0

Написать программу определения минимального элемента одномерного массива чисел - Pascal ABC - Ответ 5935235

22.03.2014, 15:43. Показов 3307. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено SatanaXIII как решение

Решение

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
type mas=array[1..50] of integer;
var x:mas;
    n:integer;
function Min(k:integer):integer;
var mnk:integer;
begin
if k=n then Min:=x[k]
else
 begin
     mnk:=Min(k+1);
     if mnk<x[k] then Min:=mnk
     else Min:=x[k];
    end;
end;
var i,k:integer;
begin
randomize;
repeat
write('Razmer massiva X [1..50] n=');
readln(n);
until n in [1..50];
writeln('Massiv X:');
for i:=1 to n do
  begin
    x[i]:=random(100);
    write(x[i]:4);
  end;
writeln;
repeat
write('k=');readln(k);
until k in [1..n];
write('min=',Min(k));
end.


Вернуться к обсуждению:
Написать программу определения минимального элемента одномерного массива чисел Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.03.2014, 15:43
Готовые ответы и решения:

Написать функцию для определения максимального элемента одномерного массива
Написать функцию для определения максимального элемента одномерного массива.

Написать функцию для определения минимального элемента двумерного массива
Написать функцию для определения минимального элемента двумерного массива.

Разработать программу для определения индекса минимального элемента массива
Разработать программу для определения индекса минимального элемента массива.

Написать программу, содержащую функцию нахождения минимального элемента линейного массива
Написать программу, содержащую функцию нахождения минимального элемента линейного массива...

1
22.03.2014, 15:43
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.03.2014, 15:43
Помогаю со студенческими работами здесь

Составить программу определения минимального элемента из трех элементов х1, х2, х3
Составить программу определения минимального элемента из трех элементов х1, х2, х3. Добавлено...

Найти произведение минимального и максимального элемента одномерного массива
1) Ввести с помощью процедуры VVOD одномерный массив A. Найти произведение его минимального и...

Составить программу нахождения минимального элемента матрицы и определения его местоположения
Дана вещественная матрица А(N,M). Составить программу нахождения минимального элемента матрицы и...

Упорядочить элементы одномерного массива, расположенные до минимального элемента по возрастанию
Заранее благодарю уважаемых гуру.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru