Помогите пожалуйста с массивами на паскале

[Lera_94]

Помогите пожалуйста с массивами на паскале

1.В первую ячейку массива поместить число 13. В остальные ячейки поместить числа, равные
сумме числа из предыдущей ячейки и его цифр (т.е. во второй ячейке будет число 13+1+3=17).
Найти сумму элементов, кратных заданному числу
2.. Двумерный массив NxN заполнить случайными символами английского алфавита (заглавные).
Поменять местами элементы относительно главной диагонали, а затем относительно побочной
диагонали
Если можно пожалуйста прокомментируйте своё решение

Тема перенесена в нужный раздел. Модератор

 

[Vladimir_S]

2.. Двумерный массив NxN заполнить случайными символами английского алфавита (заглавные). Поменять местами элементы относительно главной диагонали, а затем относительно побочной диагонали

Легко.

Const
 N=7;
Var
 A:Array[1..N,1..N] of Char;
 i,j:Byte;
 C:Char;
Begin
 Randomize;
 Writeln('Initial matrix:');
 for i:=1 to N do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=Chr(65+Random(26));
     write(A[i,j]+'  ');
    end;
   writeln;
  end;
 Writeln('First transformed matrix:');
 for i:=1 to N-1 do
  for j:=i+1 to N do
    begin
     C:=A[i,j];
     A[i,j]:=A[j,i];
     A[j,i]:=C;
    end;
 for i:=1 to N do
  begin
   for j:=1 to N do write(A[i,j]+'  ');
   writeln;
  end;
 Writeln('Second transformed matrix:');
 for i:=1 to N-1 do
  for j:=1 to N-i do
    begin
     C:=A[i,j];
     A[i,j]:=A[N-j+1,N-i+1];
     A[N-j+1,N-i+1]:=C;
    end;
 for i:=1 to N do
  begin
   for j:=1 to N do write(A[i,j]+'  ');
   writeln;
  end;
 Readln
End.

Заполнение матрицы идет путем случайной выборки кодов символов с номерами от 65 до 90, которым соответствуют заглавные латинские буквы. Остальное всё, я думаю, понятно.

 

[Vladimir_S]

1.В первую ячейку массива поместить число 13. В остальные ячейки поместить числа, равные сумме числа из предыдущей ячейки и его цифр (т.е. во второй ячейке будет число 13+1+3=17). Найти сумму элементов, кратных заданному числу

Пожалуйста:

Var
 A:Array[1..255] of Word;
 i,N,k:Byte;
 Sum_of_Elements:Word;

Function Sum_of_Digits(Q:Word):Byte;
var
 QS:Word;
 Number_of_Digits,Sum,p:Byte;
begin
 QS:=Q;
 Number_of_Digits:=Trunc(Ln(Q)/Ln(10))+1;
 Sum:=0;
 for p:=1 to Number_of_Digits do
  begin
   Sum:=Sum+(QS mod 10);
   QS:=QS div 10;
  end;
 Sum_of_Digits:=Sum;
end;

Begin
 A[1]:=13;
 Write('N (1<N<256) = ');
 Readln(N);
 Write(A[1]:8);
 For i:=2 to N do
  begin
   A[i]:=A[i-1]+Sum_of_Digits(A[i-1]);
   Write(A[i]:8);
  end;
 Writeln;
 Writeln;
 Sum_of_Elements:=0;
 Write('k = ');
 Readln(k);
 For i:=1 to N do
  if (A[i] mod k)=0 then
   begin
    write(A[i]:8);
    Inc(Sum_of_Elements,A[i]);
   end;
 Writeln;
 If Sum_of_Elements=0 then
  Writeln('No such elements!')
 else
  Writeln('Sum_of_elements = ',Sum_of_elements);
 Readln;
End.

Функция считает сумму цифр числа. Предварительно там (через логарифмы) определяется количество цифр. Остальное, думаю, понятно.