SaveText.Ru

Без имени
  1. program Matrix19;
  2. var
  3.  a:array [1..10,1..10] of integer;
  4.  s,M, N, i, j:Integer;
  5.  
  6. begin
  7.  write('Введите N: ');
  8.  readln(N);
  9.  write('Введите M: ');
  10.  readln(M);
  11.  writeln();
  12.  randomize;
  13.  
  14.  for i:=1 to M do
  15.  begin
  16.  for j:=1 to N do
  17.  begin
  18.  a[i,j]:=random(30);
  19.  Write('a[',i,',',j,']=',a[i,j],'; ');
  20.  end;
  21.  writeln();
  22.  end;
  23.  
  24.  writeln();
  25.  
  26.  s:=0;
  27.  For i:=1 to M do
  28.  begin
  29.  s:=0;
  30.  for j:=1 to N do s:=s+a[i,j];
  31.  Writeln('Сумма ',i, '-ой строки = ',s);
  32.  end;
  33. end.
  34.  
  35. program string3;
  36. var c:char;
  37.  //c: string[30];
  38.  //f: integer;
  39.  
  40. begin
  41.  write('Введите число C: ');
  42.  readln(c);
  43.  //f:=c;
  44.  writeln('Предшествующее число C:',succ(c));
  45.  writeln('Следующие число после C:',pred(c));
  46. end.

Share with your friends:

Print