НУЖНА Т-Т
Нужно составить программу в паскале.
Дан массив из 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.

Объяснение:

язык си(откомпилирован и проверен был в dev-c++)

#include < stdio.h> #include < stdlib.h> #include < conio.h> int main(){      int a, b, c;       printf("\n vvedite 3 chisla :   ");       scanf("%d" "%d" "%d", & a, & b, & c);             if (a > b & & a > c) printf("\n a = %d", a);       if (b > c & & b > a) printf("\n b = %d", b);       if (c > b & & c > a) printf("\n c = %d", c);       if (a == b & & a > c) printf("\n a = %d b = %d", a, b);       if (a == c & & a > b) printf("\n a = %d c = %d", a, c);       if (b == c & & b > c) printf("\n b = %d c = %d", b, c);       if (a == b & & a == c) printf("\n a = %d b = %d c = %d", a, b, c);   printf("\n\n press ");   getch( );   return 0; }

паскаль (откомпилирован и проверен был в pascal abc)

program z1; uses crt; var a, b , c: integer; beginwrite('vvedite 3 chisla:   '); readln(a, b, c); if (a > b) and (a > c) then writeln(' a = ', a); if (b > c) and (b > a) then writeln(' b = ', b); if (c > a) and (c > b) then writeln(' c = ', c); if (a = b) and (a > c) then writeln(' a = ', a, ' b = ', b); if (a = c) and (a > b) then writeln(' a = ', a, ' c = ', c); if (b = c) and (b > c) then writeln(' b = ', c, ' c = ', c); if (a = b) and (a = c) then writeln(' a = ', a, ' b = ', b, ' c = ', c); end.

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.