2 простенькие Задачки

[Sergeo_89]

1. Вводите массив 5*4. Найти суммы столбцов и заменить ими значение эл. главной диаганали, расположенных в соответствующих столбцах.



2. Введите текст. Конец ввода F1. Вывести на печать слова, у которых есть удвоенные буквы.

Единственно знаю, что 2 задачу надо через "Ридкей" как то решать

ЗАРАНЕЕ СПАСИБО!!!

[alex_fcsm]

const n=5;
var a:array[1..n,1..n] of integer;
    i,j,sum:integer;
begin
for i:=1 to n do
 for j:=1 to n do
   read(a[i,j]);
for i:=1 to n do
 begin
 sum:=0;
 for j:=1 to n do
  sum:=sum+a[j,i];
 a[i,i]:=sum;
 end;
writeln;
for i:=1 to n do
begin
 for j:=1 to n do
   write(a[i,j],' ');
writeln;
end;
end.

[alex_fcsm]

uses crt;
var ch,ch1:char;
    s:string;
    flag:boolean;
    x:array[1..100] of string;
    i,n:integer;


begin
clrscr;
flag:=false;
ch:=#0;
n:=0;
repeat
ch1:=ch;
ch:=readkey;
if (byte(ch))=0 then ch:=readkey;
if ch<>#59 then write(ch);
           if ch=ch1 then flag:=true;
           if (ch<>' ')and(ch<>#59) then s:=s+ch
              else begin
                     if flag then begin
                      inc(n);
                      x[n]:=s;
                     end;
                   flag:=false;
                   s:='';
                   end;

until ch=#59;
writeln;
for i:=1 to n do
 writeln(x[i]);
end.

[Sergeo_89]

Аааа Спасибо Тебе Огромное!!!Выручил оч оч оч Сильно!!!

[alex_fcsm]

Что такое главная диагональ для не квадратной матрицы? Я у себя в задаче использовал квадратную

[Sergeo_89]

Я в этом мало что понмаю, поэтому как сказали так и Хорого) Спасибо исчо раз))

а почему программы не работают правильно???((((((((((((((((

[Almost456]

1.Жаль что у тебя по заданию матрица 5Х4.Вроде бы решено,но последнюю сумму столбца не выводит.

program primer;
uses crt;
var a,i,j:integer;
matr:array[1..5,1..4]of integer;
stolb:array[1..5] of integer;
begin
ClrScr;
{матрица}
For i:= 1 to 5 do
For j:= 1 to 4 do
Begin
Gotoxy(3+i*4,3+j*2);
Readln(matr[i,j]);
End;
{сумма столбцов}
For a:= 1 to 4 do
Begin
stolb[1]:=stolb[1]+matr[1,a];
stolb[2]:=stolb[2]+matr[2,a];
stolb[3]:=stolb[3]+matr[3,a];
stolb[4]:=stolb[4]+matr[4,a];
stolb[5]:=stolb[5]+matr[5,a];
End;
Gotoxy(5,15);
Writeln('  ',stolb[1],'  ',stolb[2],'  ',stolb[3],'  ',stolb[4],'  ',stolb[5]);
{замена главной диагонали на суммы столбцов}
for i:= 1 to 5 do
for j:=1 to 4 do
if i=j then begin
matr[i,j]:=stolb[i];
end;
writeln('============================');
for i:=1 to 5 do
begin
for j:=1 to 4 do
write(matr[j,i]:3,'  ');
writeln;
end;

readkey;
end.

[alex_fcsm]

Что не так?