Написать программу, которая заполняет массив из 5 чисел случайными значениями от 1 до 6 и выводит минимальный элемент. язык паскаль.

1.

program pr;  

var m[1..10] of integer;  

j: integer;  

begin  

for j: =1 to 10 do  

begin  

m[j]: =random(10)-5;  

write(m[j],', ');  

end;  

readln;  

end.  

2.  

program pr;  

var m[1..20] of integer;  

j: integer;  

begin  

for j: =1 to 20 do  

m[j]: =random(30);  

m[9]: =55;  

end.  

3.  

program pr;  

var m[1..5,1..5] of integer;  

i,j: integer;  

begin  

for i: =1 to 5 do  

for j: = 1 to 5 do  

m[i,j]: =random(9);  

for j: = 1 to 5 do m[j,3]: =0;  

end.  

4.  

program pr;  

var m[1..6,1..6] of integer;  

i,j: integer;  

begin  

for i: =1 to 6 do  

for j: = 1 to 6 do  

m[i,j]: =random(1);  

for j: = 1 to 6 do m[j,3]: =2;  

end.  

5.  

program pr;  

var j,i: integer;  

var m,s: array[1..10] of integer;  

begin  

for j: =1 to 10 do m[j]: =random(20)-10;  

i: =1;  

for j: =1 to 10 do  

if m[j]> 0 then begin  

s: =m[j];  

inc(i);  

end;  

end.  

6.program pr;  

var m[1..6,1..6] of integer;  

i,j: integer;  

begin  

for i: = 1 to 6 do begin  

for j: =1 to 6 do  

begin  

m[i,j]: =random(1);  

write(m[i,j],', ');  

end;  

writeln(' ');  

end;  

readln;  

end.  

program pr;  

var m[1..6,1..6] of integer;  

i,j,c: integer;  

begin  

for i: = 1 to 6 do  

for j: =1 to 6 do begin  

m[i,j]: =random(1);  

if m[i,j]=1 then c: =c+1;  

end;  

write('count: ',c);  

readln;  

end.

var a: array [1..5] of integer;  

i,m: integer;  

begin

m: =6;

write('массив:   ');

for i: =1 to 5 do

begin

a[i]: =random(6)+1;

write(a[i],'   ');

if a[i]< m then m: =a[i]

end;  

writeln;

writeln('минимальный элемент: ',m)

end.

Сложно так сделать?

Просто откриваешь Ексель и печатаешь там в каждой клеточке...

http://prntscr.com/wcybpo