Дан массив целых чисел а1,…, аn.Все элементы массива, предшествующие наименьшему числу, домножить на это число

24.04.2013, 15:10. **Показов** 1715. **Ответов** 0

Author24 — интернет-сервис помощи студентам

Кто-нибудь,помогите пожалуйста выполнить задание..оочень буду благодарна.Никак не получается оно,замучалась уже(

1. Задания
В качестве условия задачи берется задание из 5 лабораторной работы, но работать не с одним массивом, а с двумя А1 и А2. В основной программе предусмотреть вызовы подпрограмм к обоим массивам.

2. Правила оформления работы
1. Предусмотреть вывод на экран ФИО, № группы студента, сделавшего работу.
2. Автоматическое формирование исходного массива.
3. Вывод исходного массива, промежуточных результатов и конечного результата с пояснениями.
4. Оформить программу с использованием подпрограмм (процедур и функций – по необходимости). Обосновать использование процедур и функций. Обязательны процедуры формирования и вывода массива.

Вот то задание,которое дано как условие: Дан массив целых чисел а1,…, аn.Все элементы массива, предшествующие наименьшему числу, домножить на это число.
Вот как это условие выполнено в Паскале:

Pascal

Var A:array[1..100] of integer;
    i,imin,n:integer;
Begin
    write('Введите размерность: ');readln(n);
    writeln('Исходный массив');
    For i:=1 to n do
     Begin
      A[i]:=random(11)-5;
      write(A[i]:3);
      if i=1 then imin:=1;
      if A[i]<A[imin] then imin:=i;
     End;
    writeln;
    writeln('Минимальный элемент: ',A[imin]);
    writeln('Преобразованный массив');
    For i:=1 to n do
     Begin
      if i<imin then A[i]:=A[i]*A[imin];
      write(A[i]:3);
     End;
    readln;
End.

	24.04.2013, 15:10