помогите пожалуйста написать програму по информатике,я вообщем не разбираюсь в них

ребят очень нужно,помогите

Все 3?

ну если можешь ,то да,на завтра училка задала сделать,а то уже 2 параши стоят,помоги плз

Попробую, Pascal, да?

да

у нас щас в классе компютеры до сих пор не работают вот она и задаёт на дом в тетрадках писать

я с сентября только на 2 уроках был,то соревнования,то репетиции концерта школьного,так материал и прогулял

Const N = 10;
var im, i, ie: Integer;
    A: array [0..N] of Integer;
begin    for i := 0 to N do
        A[i] := random(99);
    im := A[0];
    for i := 0 to N do
        if (A[i] gt; im) then
        begin
             im := A[i];
             ie := i;
        end;
    writeln(ie);
end.
==========================================
const N = 10;
var im, i, ie, ib: Integer;
    A: array [0..N] of Integer;
begin
    readln(im);
    for i := 0 to N do
        A[i] := random(15);
    for i := 0 to N do
        if (im = A[i]) then ie := i;
    writeln(ie);
end.
================================
const N = 10;
var im, i, ie, ib: Integer;
    A: array [0..N] of Integer;
begin
    readln(im);
    for i := 0 to N do
        A[i] := random(15);
    for i := 0 to N do
        if (im = A[i]) then
        begin
             ie := i;
             break;
        end;
    writeln(ie);
end.
================================
Вот, прошу:) Здесь полезно знать, что сначала массив заполняется случайными числами во всех образцах, вдруг спросят