Кто-нибудь,помогите пожалуйста выполнить задание..оочень буду благодарна.Никак не получается оно,замучалась уже(
1. Задания В качестве условия задачи берется задание из 5 лабораторной работы, но работать не с одним массивом, а с двумя А1 и А2. В основной программе предусмотреть вызовы подпрограмм к обоим массивам.
2. Правила оформления работы 1. Предусмотреть вывод на экран ФИО, № группы студента, сделавшего работу. 2. Автоматическое формирование исходного массива. 3. Вывод исходного массива, промежуточных результатов и конечного результата с пояснениями. 4. Оформить программу с использованием подпрограмм (процедур и функций – по необходимости). Обосновать использование процедур и функций. Обязательны процедуры формирования и вывода массива.
Вот то задание,которое дано как условие: Дан массив целых чисел а1,…, аn.Все элементы массива, предшествующие наименьшему числу, домножить на это число. Вот как это условие выполнено в Паскале: Var A:array[1..100] of integer; i,imin,n:integer; Begin write('Введите размерность: ');readln(n); writeln('Исходный массив'); For i:=1 to n do Begin A:=random(11)-5; write(A:3); if i=1 then imin:=1; if A<A [imin]then imin:=i; End; writeln; writeln('Минимальный элемент: ',A[imin]); writeln('Преобразованный массив'); For i:=1 to n do Begin if i<imin then A:=A*A[imin]; write(A:3); End; readln; End.
