Решение задач в паскале

[Kuzmin081]

Задачи вроде легкие но я ничего не понимаю и истинно надеюсь на вашу помощь... ЗАранее спасибо вот задачи:
1. найти наибольший элемент массива и его номер, массив состоит из 30 целых случайных чисел в интервале от -50 до 50

2. Проверить десять целых случайных чисел и напечатать те из них которые кратны 2. Если таких чисел нет сообщить об этом. Диапазон случайных чисел от -30 до 30

Заранее спасибо! Я прям реально буду благодарен если поможете))

[Stilet]

Насколько реально?

1. найти наибольший элемент массива и его номер, массив состоит из 30 целых случайных чисел в интервале от -50 до 50

var i,im:integer;a:array[1..30] of integer;
begin  
 for i:=1 to 30 do begin
  a[i]:=random(10000);
  if a[i]>a[im] them im:=i;
 end;
 write(im:10,a[im]);readln;
end.

[Kuzmin081]

Как так? стоп насколько я понимаю рандом должен быть

random(100)-50; не?)

[Mad_Cat]

a[i]:=random(101)-50;

[Stilet]

не?)

А вот насколько ты понимаешь - оценит преподаватель )
Я всего лишь подал идею.