Могу толко написать программу, в которой последние символы строки должны стать первыми, а первые последними. uses crt; var d,d1:string; i:integer; begin writeln ('Введите слово или предложение');r eadln(d);d1:=''; for i:=length(d)downto 1 do d1:=d1+d[i];d:=d1; writeln(d); end.
var a: array[1..m, 1..n] of integer; i, j, im, jm, mx, e: integer;
begin Randomize; mx := -1000; for i := 1 to m do begin for j := 1 to n do begin a[i, j] := Random(100) - 50; e := abs(a[i, j]); if mx < e then begin mx := e; im := i; jm := j end; write(a[i,j]:4) end; writeln end; writeln; writeln('Максимальный по модулю элемент a[', im, ';', jm, ']=', mx) end.
uses crt;
var d,d1:string;
i:integer;
begin
writeln ('Введите слово или предложение');r
eadln(d);d1:='';
for i:=length(d)downto 1 do d1:=d1+d[i];d:=d1;
writeln(d);
end.