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

1
ну если можешь ,то да,на завтра училка задала сделать,а то уже 2 параши стоят,помоги плз
Попробую, Pascal, да?
да
у нас щас в классе компы до сих пор не работают вот она и задаёт на дом в тетрадках писать
я с сентября только на 2 уроках был,то соревнования,то репетиции концерта школьного,так материал и прогулял

Ответы и объяснения

2013-10-13T14:14:33+00:00
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] > 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.
================================
Вот, прошу:) Тут полезно знать, что вначале массив заполняется случайными числами во всех примерах, вдруг спросят