Символьные строки. Определить каким по счету символом является буква “у” в

символьной строке “Я люблю информатику”. Паскаль ​

#include<iostream>

#include<ctime>

#include<stdlib.h>

using namespace std;

int main() {

setlocale(LC_ALL, "russian");

const int  ROWS = 500;//строки

const int  COLS = 500;//колонки

int arr[ROWS][COLS];

/*заполнение массива*/

for (int i=0; i<ROWS; i++) {

 for (int j=0; j<COLS; j++) {

  arr [i][j] = rand() % 2;

 }

}

/*вывод массива*/

for (int i=0; i<ROWS; i++) {

 for (int j=0; j<COLS; j++) {

  cout<<arr[i][j]<<"\t";

 }

 cout<<endl;

}

}

Объяснение:

setlocale(LC_ALL, "russian") не обязательно...

Можно лучший ответ , ОЧНЬ надо :

 Есть сомнения в том первый элемент массива это 0.5 или же это 2 элемента 0 и 5  и тогда объявление массивов будет следующим var a:array[1..9] of integer=( 0,5,12,-18,16,13,5,8,0 );  b: array[1..9] of real;  

Program massiv;

Uses Crt;

var a:array[1..8] of real =(0.5,12,-18,16,13,5,8,0);

       b: array[1..8] of real; 

       sum:real

       i:integer;

begin

     clrscr;

     write('Массив B: ');

     sum:=0; 

     for i:=1 to 8 do 

         begin     

              b[i]:=a[i]/2;  

              sum:=sum+a[i]+b[i]; 

              write(b[i]:2:2);

        end; 

  writeln;

  writeln('Сумма элементов массивов а и b: ',sum);

   writeln(' Первый элемент массива а : ',a[1]:2:2);

    writeln(' Первый элемент массива b : ',b[1]:2:2); 

    readkey;

end.