Решить по информатике! 1.дана символьная строка. определить, есть ли в строке слово из трех букв. 2.дана строка. определить, есть ли в ней буква s. других данных нет. только не пишите решай сама! )

Var s: string; i,k: integer; b: boolean; begin readln(s); for i: =1 to length(s) do if (s[i]< > ' ') then begin inc(k);   if k=3 then b: =true; end else k: =0; writeln(b); end.var i: integer; s: string; b: boolean; s1: char; beginreadln(s); readln(s1); for i: =1 to length(s) doif s[i]=s1 then b: =true; writeln(b); end.

//visual c++ 2012 #include < iostream> using namespace std; int main(){   int ma[2][2];   int temp;   temp=0;   for(int i=0; i< 2; i++)   for(int j=0; j< 2; j++)     cin> > ma[i][j];   cout< < "first array: "< < endl;     for (int i=0; i< 2; i++){       for (int j=0; j< 2; j++)       cout< < ma[i][j]< < "\t";       cout< < endl;       }   for(int i=0; i< 2; i++){   temp=ma[i][0];   ma[i][0]=ma[i][1];   ma[i][1]=temp;   }   cout< < "final array"< < endl;     for (int i=0; i< 2; i++){       for (int j=0; j< 2; j++)       cout< < ma[i][j]< < "\t";       cout< < endl;       }   cin.get();   cin.get();   return 0; }

Вы массив объявили с именем  ar, а пытаетесь его использовать с именем а исправленный код выглядит так: var   ar: array[1..10]of integer;   a, c, i, n: integer; begin read(n);   for i : = 1 to n do   begin       read(ar[i]);       if i = 1 then           c : = ar[i];       if ar[i] > c then           c : = ar[i];   end;   writeln(c); end.   вариант №2 program max; const n = 10; var   ar: array[1..10]of integer;   a, c, i: integer; begin   for i : = 1 to n do   begin       read(ar[i]);       if i = 1 then           c : = ar[i];       if ar[i] > c then           c : = ar[i];   end;   writeln(c); end.