Дан неупор массив. Найти простые числа.

programs1;Procedurestep(a,b:integer);

Varj,s,i,n,k:integer;

Begin fori:=a tob do begin s:=0; forn:=1 toabs(i) do

ifi modn=0 Thens:=s+1; s=2 Then beginWrite (i:5); k:=k+1; end; end;

ifk=0 ThenWriteln ('На указанном отрезке простых чисел нет!!!');end;

Varm,n,i:integer; beginWriteln ('ввести начало и конец отрезка'); Readln(m,n);

step(m,n); Writeln ();End.

Дан двум массив. Найти средн арифм мин и макс элем каждого столбца.

Program z1; uses crt; Type tabl=array [1..10,1..10] of integer;

Var a:tabl;h,v,f:integer; sr:real;

Procedure wwod(k,m:integer;Var c:tabl);

var i,j:integer; Begin For i:=1 to k do For j:=1 to m do c[i,j]:=Random(60);

End;

Procedure wiwod (k,m:integer;Var c:tabl);

var i,j:integer; Begin For i:=1 to k do begin For j:=1 to m do

Write(c[i,j]:6); writeln; end; End;

Procedure poisk(k,m:integer;c:tabl;var p:real);

Var i,j,s,s1,max,min:integer; begin s:=c[1,1]; s1:=c[1,1]; for i:=1 to k do begin

if s<c[i,f] Then s:=c[i,m]; if s1>c[i,f] Then s1:=c[i,m]; end;

//Writeln ('максимальный элемент=',s); //Writeln ('минимальный элемент=',s1);

p:=(s+s1)/2; end; begin writeln('ввести количество строк'); readln(h);

If (h>=1)and(h<10)Then begin writeln('ввести количество столбцов');

readln(v); If (v>=1)and(v<10)Then begin wwod(h,v,a); writeln('Исходный массив');

wiwod(h,v,a); for f:=1 to v do begin poisk(h,f,a,sr);

Writeln ('Среднее арифметическое ',f,' столбца=',sr); end; end

Else Writeln ('Неправильно введены размеры массива!!!'); end

Else Writeln ('Неправильно введены размеры массива!!!'); end.