Все элементы массива до минимального элемента переписать в массив В - Turbo Pascal

Формулировка задачи:

Даны 3 задачи, к ним нужно составить блок схему и написать программу на паскале. 1.Дан массив А(25). Все элементы до минимального элемента переписать в массив В, элементы после максимального в массив С. Помогите пожалуйста! Нужен код на паскале(желательно с описанием переменных) и блок-схему.

Код к задаче: «Все элементы массива до минимального элемента переписать в массив В - Turbo Pascal»

textual
program mas;
uses crt;
 
var A:array[1..25] of integer;
     B:array[1..25] of integer;
     C:array[1..25] of integer;
 
    i,j,min,mini,max,maxi:integer;
begin
    clrscr;
    writeln('vvedite elementi massiva');
    for i:=1 to 25 do
    begin
       write('A[',i,']=');
       readln(A[i]);
    end;
    min:=a[1];
    mini:=1;
    for i:=1 to 25 do
    begin
       if (a[i]<min)then 
       begin
          min:=a[i];
          mini:=i;
       end;
    end;
    max:=a[1];
    maxi:=1;
    for i:=1 to 25 do
    begin
       if (a[i]>max)then 
       begin
          max:=a[i];
          maxi:=i;
       end;
    end;
    for i:=1 to mini do
       b[i]:=a[i];
    j:=1;
    for i:=maxi to 25 do
    begin
       c[j]:=a[i];
       j:=j+1;
    end;
    writeln('massiv B:');
   for i:=1 to mini do
    begin
       write(B[i]);
    end;
   writeln('massiv C:');
   for i:=maxi to 25 do
    begin
       write(C[i]);
    end;
 
readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 4.400 из 5


СДЕЛАЙТЕ РЕПОСТ