паскаль 1) Дан целочисленный двумерный массив, размерности n х m, при n=4; m=8. Заменить все элементы на их квадраты. 2) Дан целочисленный двумерный массив, размерности n х m, при n=6; m=5. Заменить все элементы на их противоположные значения.

Объяснение:

1) Var

m: array [1..10, 1..10] of integer;

i,j,c:integer;

Begin

For i:=1 to 4 do

For j:=1 to 8 do

read(m[i,j]);

For i:=1 to 4 do

For j:=1 to 8 do

Begin

m[i,j]:=m[i,j]*m[i,j];

end;

For i:=1 to 4 do

Begin

For j:=1 to 8 do

write(m[i,j],' ');

writeln

end;

end.

2)Var

m: array [1..10, 1..10] of integer;

i,j,c:integer;

Begin

For i:=1 to 6 do

For j:=1 to 5 do

read(m[i,j]);

For i:=1 to 6 do

For j:=1 to 5 do

Begin

m[i,j]:=-1*m[i,j];

end;

For i:=1 to 6 do

Begin

For j:=1 to 5 do

write(m[i,j],' ');

writeln

end;

end.

Программа ищет и выводит все трехбуквенные слова, содержащие русские и/или латинские буквы в обоих регистрах. Слова могут разделяться любым количеством любых символов, кроме символа подчеркивания.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Вводите:');
  var m:=s.Matches('\b\w{3}\b');
  if m.Count>0 then m.Println
  else Writeln('Нет трехбуквенных слов')
end.

Пример:
Вводите: Как найти все слова, где букв - три?
Как все где три

Var s,tmp:string;
     i,n:integer;
     flag,word:boolean;
function letter (const let:char):boolean;
 begin
   if ((let>='a') and (let<='z')) or ((let>='A') and (let<='Z')) then letter:=true
     else letter:=false;
 end;
begin
  readln (s);
  s:=s+' ';
  n:=length(s);
  flag:=false;
  for i:=1 to n do
   begin
     if (letter(s[i])) and (not flag) then
      begin 
        flag:=true;
        tmp:='';
        word:=false;
      end else if (not letter(s[i])) and (flag) then
      begin 
       flag:=false;
       if (word) and (not (tmp='')) then writeln (tmp);
      end;
     if (flag) then
      begin 
        tmp:=tmp+s[i];
        if (s[i]='k') then word:=true;
      end; 
   end;
end.