1. опишите структуру ниже таблицы с указанием форма-тов всех полей. определите первичный ключ. число месяц температура осадки ветер 1 май +5 дождь северный 15 июнь +19 гроза юго-западный 30 июль +24 южный 20 август +18 дождь западный 1 сентябрь +15 восточный 15 октябрь +2 дождь со снегом северный 30 октябрь -3 снег западный 20 ноябрь -8 снег северо-восточный

Число - числовое месяц - текстовое температура - числовое осадки — текстовое ветер — текстовое первичный ключ — число + месяц

соблюдение простых правил избежать многих проблем

1.  советуйтесь с родителями.  обязательно спрашивайте родителей о незнакомых вещах в интернете. например, о получении странного сообщения или предложения.

2.  храните личную информацию в тайне! не пишите в интернете (в том числе в играх и на своих страничках в социальных сетях) личную информацию, такую как: адрес, номера и мобильного телефонов, адрес электронной почты, место учёбы.

3.  не открывайте подозрительные файлы.  не стоит скачивать или открывать неизвестные, а особенно присланные незнакомцами файлы. это может к заражению компьютера вирусами.

4.  не переносите виртуальные знакомства в реальность.  если виртуальный знакомый хочет пообщаться или встретиться с вами в реальной жизни – ни в коем случае не соглашайтесь. люди в сети не всегда рассказывают правду о себе и целях своих поступков. обязательно сообщите о таком предложении родителям.

5.  не спешите отправлять  sms.если за скачивание картинки или музыки из интернета, или для покупки игровых ценностей просят отправить sms, спрашивайте разрешение у родителей для отправки подобных сообщений.

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

7.  храните пароли в секрете.храните в секрете свои пароли от страничек, почты и игр от всех, кроме родителей.

Program arr; const n=3; var i, j, tmp, k, z: integer;       c: boolean;       a: array [1..n,1..n] of integer; begin c: =false; for i: =1 to n do   for j: =1 to n do       read(a[i][j]); for i: =1 to n do   for j: =1 to n do       begin       tmp: =a[i][j];       for k: =i+1 to n do           for z: =j+1 to n do               if tmp = a[k][z] then               c: =true;       end; writeln; for i: =1 to n do begin   for j: =1 to n do       write(a[i][j], ' ');   writeln; end; if c = true then   writeln('в данном массиве есть равные друг другу элементы')   else writeln('элементы, равные друг другу, отсутсвуют в данном массиве'); end.