Создание и использование модулей
Здравствуйте, помогите пожалуйста с данной задачей. Заранее благодарен!!!
Параметр– массив из N целых чисел(N– константа модуля). Действия: • нахождение минимального элемента; • нахождение максимального элемента; • нахождение суммы элементов массива; • перестановка элементов массива в обратном порядке. |
Забыл указать. На паскале.
|
const
N = 20; var i, min, max: byte; sum, tmp: integer; mas: array [1..N] of integer; begin randomize(); writeln('Vhodnoy massiv:'); for i:= 1 to N do begin mas[i]:= random(100); write(mas[i]:3); end; min:= mas[1]; max:= mas[1]; sum:= mas[1]; for i:= 2 to N do begin if mas[i]> max then max:= mas[i]; if mas[i]< min then min:= mas[i]; sum:= sum + mas[i]; end; writeln; writeln('min = ', min); writeln('max = ', max); writeln('summa = ', sum); for i:= 1 to (N+1) div 2 do begin tmp:= mas[i]; mas[i]:= mas[N-i+1]; mas[N-i+1]:= tmp; end; writeln('Obratniy massiv:'); for i:= 1 to N do write(mas[i]:3); readln; end. |
Уважаемый poiu, конечно, это всё прекрасно, вот только... одного я тут в упор не вижу: модулей. А ведь, как я понял, именно работа с модулями и составляет суть задания. А потому осмелюсь предложить свой вариант:
1. Модуль (сохранить под именем My_Unit.pas. Другие названия недопустимы! Ну то есть можно поменять, но одновременно имя модуля в первой строке и имя файла - они должны быть строго одинаковыми): Код:
Unit My_Unit; Код:
Uses My_Unit; |
извиняюсь. не внимательно прочел задание. выполнил только его внутренности.
|
Огромное спасибо, буду тестировать.
|
Часовой пояс GMT +4, время: 06:50. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.