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

Question

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

---

Comments

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

---

Все 3?

---

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

---

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

---

да

---

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

---

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

Answer 1

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