Помогите решить лабораторки!!!!

[Den]

Тема: Обработка числовых массивов.

Сформировать массив простых множителей заданого числа.

Кто знает напишите????

[AVer]

Сформировать массив простых множителей заданого числа. Код:

Var A:Array[1..100] of Integer;
    F:Boolean;
    C,N:Integer;

Function Prostoe(N:Integer):Boolean;
Var I:Integer;
    B:Boolean;
Begin
B:=True;
For I:=2 to N-1 do
If N mod I = 0 Then B:=False;
Prostoe:=B;
End;

Procedure Find(N:Integer);
Var I:Integer;
Begin
For I:=2 To N do
If (N mod I = 0) and Prostoe(I) Then
Begin
Inc(C);
A[C]:=I;
If N div I = 1 Then
F:=True;
Find(N div I);
If F Then Exit;
End;
End;

begin
C:=0;
ReadLn(N);
Find(N);
N:=0;
Repeat                     
Inc(N);                   
WriteLn(A[N]:4);      
Until A[N+1] = 0;     // Для наглядности
ReadLn;
end.

[Den]

AVer Спасибо тибе за задачку!!!!!

[Den]

Дана действительная квадратная матрицапорядка N(n-четное), все элементы которые различны. Найти наибольший элемент среди стоящих на главной и пабочной диоганалях и поменять его местами с элементом, стоящим на пересечении этих диоганалей.

[Virtson]

вот они какие студенты пошли, ни русского не знают, ни Pascal.
зато халяву любят.

[psyke]

а зачем думать? думать вредно

[Gambler]

И это студенты??? Да нас в школе больше с программированием грузят! Нт, реально, изучаем по идее только 2 недели (ну весь класс изучает) а задачки покруче этой!!!

[Den]

Да нам на учебе толком ничего не объясняли а щас дали лабороторки и мы не можем решить. Помогите пожалуйста!

[AVer]

Сообщение от Den

Дана действительная квадратная матрица порядка N(n-четное), все элементы которые различны. Найти наибольший элемент среди стоящих на главной и пабочной диоганалях и поменять его местами с элементом, стоящим на пересечении этих диоганалей.

Задача не имеет решения так как любое четное число нацело делится на 2.

[Virtson]

Сообщение от AVer

Задача не имеет решения так как любое четное число нацело делится на 2.

и поэтому на пересечений диагоналей элемента нету ..