Заполните случайными числами в

Так объявляются массивы в Fortran.
----------------------------------
нифига. В фортране только круглые скобки
==================================

Так объявляются массивы в Algol
----------------------------------
подтверждаю - так

Внезапно алгол-60:

BEGIN
INTEGER k;
INTEGER ARRAY a,b[1:20];
LIBRARY "ALIB.ALG";
text(1,"A B R*N");
FOR k:=1 STEP 1 UNTIL 20 DO
BEGIN
a[k]:=1+entier(5*random);
b[k]:=1+entier(5*random);
write(1,a[k]);
write(1,b[k]);
IF a[k]=b[k] THEN write(1,a[k]);
text(1,"*N")
END
END FINISH

еще внезапнее алгол-68:

BEGIN
INT k, [1:20] INT a,b;
print(("A B R",new line));
FOR k FROM LWB a TO UPB a
DO
a[k]:=1+ENTIER(next random *5);
b[k]:=1+ENTIER(next random *5);
printf(($d" "$,a[k]));
printf(($d" "$,b[k]));
IF a[k]=b[k] THEN printf(($d$,a[k]))
FI;
print(new line)
OD
END
==================================

Так объявляются массивы в РАЯ
----------------------------------
дык Ершов и не скрывал, что райский язык придумал из алголя
бугага! А адский язык - из паскаля (!). А паскаль из алгола (!!)
райка - тетка адки, а адка племянница райки :-)

А что странного в размерности? Так объявляются массивы в РАЯ и по-моему ещё в Algol и Fortran.
Вероятнее всего, нужна программа в Кумире (хотя меня сбивает с толку возраст автора вопроса) .

алг N70829955
нач цел i
цел таб A[1:20], B[1:20]
вывод "Массив А: ", символ (13)
нц для i от 1 до 20
A[ i ] := int(rnd(5) + 1)
вывод A[ i ]," "
кц
вывод символ (13), "Массив B:", символ (13)
нц для i от 1 до 20
B[ i ] := int(rnd(5) + 1)
вывод B[ i ]," "
кц
вывод символ (13), "Результат: ", символ (13)
нц для i от 1 до 20
если A[ i ] = B[ i ]
то
вывод A[ i ]," "
все
кц
кон

На каком языке? и странно ты пишешь размерность массива, если я правильно понял и они обо одномерные, то на delphi делается примерно так:
...
begin
randomize;
for i:=1 to 20 do
begin
A[i ]=random(5);
B[i ]=random(5);
end;
for i:=1 to 20 do
begin
if A[i ]=B[i ] then
writeln(',',A[i ]);
end;
end.
//убери лишние пробелы

Вот на Си++