Здравствуйте еще раз! Благодарю за решенную ранее лабораторную работу и хочу уже в последний раз попросить Вас помочь еще с одним вопросом)
Суть задачи: на основе предыдущей лабораторной, проделать работу уже с 2 массивами; в основной программе предусмотреть вызовы подпрограмм к обоим массивам.
Предыдущая лабораторная работа:
Program lab_5;
uses crt;
Var
a: array [1..10] of integer;
temp:integer; // для временного хранения значения
min:integer; // номера максимального и минимального элементов
N:integer;
i:integer; // счетчик в цикле
Begin
Writeln('Введите размерность массива. Размерность должна быть меньше или равна 10)');
Read(n);
random;
writeln('Значения массива:');
for i:=1 to n do begin
write('a[',i,']= ');
read(A[i]);
end;
min:=1;
for i:=1 to n do begin // цикл для определения номеров искомых элементов
if a[i]<a[min]then
min:=i;
end;
temp:=a[min];
a[min]:=a[n];
a[N]:=temp;
Writeln('Полученный массив:');
for i:=1 to n do
Write(A[i],' ');
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.