НУЖНА Т-Т
Нужно составить программу в паскале.
Дан массив из 20 элементов, заполненный случайными числами от -15 до 30. Нужно найти номера максимального и минимального элементов этого массива.

Что такое пачкал, объяснишь - дам ответ

ответ:Program abc;

Uses

Crt;

Var

 max, min ,indmax,indmin,i : integer;

 A :array [1..10] of Integer;

begin

For i:=1 to 10 do

Begin

  Randomize;

  A[i]:=Random(50);

  Write('В№',i,' = ',A[i],' ');

End;

max := A[1];

min := A[1];

For  i:=1 to 10 do

Begin

if max<A[i] then begin max:=A[i]; indmax:=i; end;

if min>A[i] then begin min:=A[i]; indmin:=i; end;

end;

  Writeln;

  WriteLn('В№',indmax,' = ' ,max,' -- Г*Г*èáîëüøèé ÷ëåГ* Г¬Г*Г±Г±ГЁГўГ*');

  WriteLn('В№',indmin,' = ',min,' -- Г*Г*èìåГ*ГјГёГЁГ© ÷ëåГ* Г¬Г*Г±Г±ГЁГўГ*');

end.

Объяснение:

var a,b: integer;

is7: boolean;

begin

    readln(a);

    b: =0;

    is7: =false;

    while a < > 0 do

    begin

        b: =b+a mod 10;

        if a mod 10 = 7 then

            is7: =true;

        a: =a div 10;

    end;

    wrtieln('сумма цифр: ', b);

    write('цифра 7 ');

    if is7 then writeln('есть') else writeln('нет');

    readln;

end.

составим двоичную матрицу:

                        молоко       лимонад         квас                   вода

бутылка               0                   1                 0                     0

стакан                 0                   0                 0                     1

кувшин                 1                   0                 0                     0        

банка                   0                   0                 1                     0

в кувшине - молоко

в бутылке - лимонад

в банке - квас

в стакане - вода