Информатика 9 класс помогите пожалуйста!

Я так понимаю, что нужно написать программу. - Не вопрос. Только сколько элементов в массиве и как данный массив задается (заполняется) - вручную с клавиатуры или автоматически генератором случайных чисел? - Ладно, напишу оба варианта. Количество элементов в массиве будет 10 (особенно актуально для ввода с клавиатуры - ибо иначе можно замучиться, вводя), но если надо больше или меньше просто замените число 10 на любое другое в строке const n=10.

Итак:

1) Массив вводится с клавиатуры:

Program P1;
uses crt;
const n=10;
type massiv=array [1..n] of real;
var i, j: integer;
m: massiv;
begin
clrscr;
writeln ('Заполните массив числами с клавиатуры. После ввода каждого числа нажимайте клавишу Enter. При вводе дробных значений дробную часть от целой отделяйте точкой, а не запятой.');
for i:=1 to n do begin
write ('Введите ', i, '-й элемент массива: ');
readln (m[i]);
end;
for i:=1 to n do begin
if m[i]=60 then writeln (i, '-й элемент массива =60') else j:=0;
end;
if j=0 then writeln ('В массиве нет элементов, =60.');
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.

2) Массив заполняется автоматически при помощи генератора случайных чисел:

Program P1;
uses crt;
const n=10;
type massiv=array [1..n] of integer;
var i, j: integer;
m: massiv;
begin
clrscr;
for i:=1 to n do begin
m[i]:=random (100);
end;
write ('Был сгенерирован массив:');
for i:=1 to n do begin
write (' ', m[i]);
end;
writeln (' ');
for i:=1 to n do begin
if m[i]=60 then writeln (i, '-й элемент массива =60') else j:=0;
end;
if j=0 then writeln ('В массиве нет элементов, =60.');
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.