Склавиатуры вводят слово и символ. составьте программу, которая определяет позицию заданного символа.

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

 

паскаль:

 

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

 

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

 

 

Const n=12; var a: array[1..n] of integer;       avg: real;       i: byte; begin   writeln('введите массив из ',n, 'элементов');   i: =0; avg: =0;   while i< n do   begin   i: =i+1 ;   read(a[i]);   avg: =avg+a[i];   end;   avg: =avg/n;   i: =0;   writeln('исходный массив');   repeat   i: =i+1;   write(a[i]: 5);   until i> =n;   writeln;   writeln('отредактированный массив');   i: =0;   repeat   i: =i+1;   if a[i]< avg then a[i]: =3;   write(a[i]: 5);   until i> =n; end.

Const     max= 10; // количество элементов в массиве var     a: array [1..max]     i,m: integer; begin     write('введите',max,'чисел');     for i: =1 to max do       read(a[i])     write('введите число');     read(m);     for i: =1 to max do       begin           if a[i] = m              then                 begin                   write('это число есть в массиве');                   exit                 end;       end; write('этого числа нет в массиве') end.