1)
var
s: string;
i: integer;
begin
writeln('Введите слово');
readln(s);
for i:= 1 to length(s) do
if i mod 2 = 1 then s[i]:= ' ';
writeln('Полученная строка: ', s);
end.
2)
var
s: string; {Программа определяет только английские буквы x или e, т.к. в задании указаны английские буквы}
i: integer;
xchar, echar: integer;
begin
writeln('Введите строку');
readln(s);
for i:= 1 to length(s) do
begin
if s[i] = 'x' then xchar:= i;
if s[i] = 'e' then echar:= i;
end;
if xchar < echar then writeln('буква "x" встретилась раньше');
if echar < xchar then writeln('буква "e" встретилась раньше');
if (echar = 0) or (xchar = 0) then writeln('одна из букв "x" или "e" не встретилась');
end.
3-е задание вообще непонятно. Произведение каких цифр описать содержание задания подробнее.
m=6;
n=8;
var
a:array[1..m,1..n] of integer;
i,j,r:integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i,j]:=Random(100);
Write(a[i,j]:3)
end;
Writeln
end;
for j:=1 to n do
begin r:=a[1,j]; a[1,j]:=a[m,j]; a[m,j]:=r end;
Writeln('Результирующий массив');
for i := 1 to m do
begin
for j := 1 to n do Write(a[i,j]:3);
Writeln
end
end.
Тестовое решение:
Исходный массив
6 93 10 3 80 4 47 71
33 33 75 85 93 22 53 16
83 30 39 95 35 53 30 83
29 43 83 54 88 83 49 67
24 67 47 97 82 40 67 35
42 26 67 23 28 8 8 45
Результирующий массив
42 26 67 23 28 8 8 45
33 33 75 85 93 22 53 16
83 30 39 95 35 53 30 83
29 43 83 54 88 83 49 67
24 67 47 97 82 40 67 35
6 93 10 3 80 4 47 71