Несколько известных правил хорошего тона

вообщето это для обществазнания ну да ладно

основные правила:   ,прощание,желать приятного аппетита, пожелать здоровья, спросить как у человека дела.

ну хорошим тоном считается вежливое отношение к человеку если это просьба то надо употреблять и и внимательно слушать собеседника а главное не перебивать его

,прощание,желать приятного аппетита. самое основное

Поиска индекса элемента по заданному значению или поиска значения по заданному индексу? напишу решение для обоих случаев. 1. поиск элемента по заданному индексу var n: longint; m: array[1..1000] of longint; begin writeln('введите индекс элемента массива'); read(n); writeln('элемент под номером ',n,' равен ',m[n]); end. 2. поиск индекса по заданному значению в массиве: var n,i: longint; m: array[1..1000] of longint; begin read(n); i: =1; while m[i]< > n do i: =i+1; writeln(m[i]); end.

Program pm; uses crt; var x: array[1..1000] of integer; k,a,b,i: integer; begin clrscr; write('введите кол-во элементов массива: '); read(k); writeln; write('введите диапазон значений заполнения(a-начальное значение, b-конечное): '); repeat read(a,b); until a< =b; writeln; randomize; for i: =1 to k do x[i]: =random(b-a+1)+a; writeln('ваш массив: '); for i: =1 to k do write(x[i]: 5); writeln; write('введите элемент поиска: '); read(b); a: =0; for i: =1 to k do if x[i]=b then a: =i; if a> 0 then writeln('элемент со значением ',b,' имеет индекс ',a) else writeln('элемента не существует! '); readkey; end.