Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Составить рекурсивную программу вычисления N https://www.cyberforum.ru/ pascalabc/ thread1126619.html Составить рекурсивную программу вычисления N! на Pascal ABC .помогите пожалуйста	Pascal ABC Добавление изображений через graphABC Привет! Подскажите как добавлять изображение через этот модуль, на примере? Я смотрел в интернете команды LoadPicture только что-то они не работают....
Pascal ABC Подсчет количества пробелов в строке Простенькая программка считает количество пробелов в строке. опыта почти нету поэтому есть вопросы на которые не могу найти ответа Интуитивно я понимаю, что происходит в этой функции но не могу... 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 ...	Pascal ABC Вывести на экран монитора треугольник синего цвета Вывести на экран монитора треугольник синего (Blue) цвета таким образом, чтобы он плавно перемещался от левого края экрана к правому краю и назад, после чего процесс перемещения треугольника должен... https://www.cyberforum.ru/ pascalabc/ thread1126454.html
Pascal ABC Добавить сортировку в приведенный код https://www.cyberforum.ru/ pascalabc/ thread1126361.html Вот задача, как сделать так чтобы она записывала данные из файла по алфавиту в новый файл? Как здесь добавить сортировку? Program TextFile4; {Задача. Дан файл Primer1 на диске. Считать из него...	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

Puporev

Почетный модератор

64279 / 47578 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

22.03.2014, 15:43

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

22.03.2014, 15:43. Показов 2945. Ответов 1

Метки (Все метки)

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

Решение

Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

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). Составить программу нахождения минимального элемента матрицы и...

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

Наверх