Ніколи не давайте приватної інформації про себе (прізвище, номер телефону, адресу, номер школи) без дозволу батьків. Якщо хтось говорить вам, надсилає вам, або ви самі віднайшли у мережі щось, що бентежить вас, не намагайтеся розібратися в цьому самостійно. Зверніться до батьків або вчителів - вони знають, що треба робити. Зустрічі у реальному житті із знайомими по Інтернет-спілкуванню не є дуже гарною ідеєю, оскільки люди можуть бути дуже різними у електронному спілкуванні і при реальній зустрічі. Якщо ж ви все ж хочете зустрітися з ними, повідомте про це батьків, і нехай вони підуть на першу зустріч разом з вами. Не відкривайте листи електронної пошти, файли або Web-сторінки, отримані від людей, яких ви реально не знаєте або не довіряєте. Нікому не давайте свій пароль, за виключенням дорослих вашої родини. Завжди дотримуйтесь сімейних правил Інтернет-безпеки: вони розроблені для того, щоб ви почували себе комфортно і безпечно у мережі. Ніколи не робіть того, що може коштувати грошей вашій родині, окрім випадків, коли поруч з вами батьки. Завжди будьте ввічливими у електронному листуванні, і ваші кореспонденти будуть ввічливими з вами. У електронних листах не застосовуйте текст, набраний у ВЕРХНЬОМУ РЕГІСТРІ - це сприймається у мережі як крик, і може прикро вразити вашого співрозмовника. Не надсилайте у листі інформації великого обсягу (картинки, фотографії тощо) без попередньої домовленості з вашим співрозмовником. Не розсилайте листи з будь-якою інформацією незнайомим людям без їхнього прохання - це сприймається як "спам", і звичайно засмучує користувачів мережі. Завжди поводьтеся у мережі так, як би ви хотіли, щоб поводилися з вами!
// PascalABC.NET 3.2, сборка 1399 от 08.03.2017 // Внимание! Если программа не работает, обновите версию!
procedure Cheburek(s:string); begin var n:=ReadInteger('Количество строк в матрице:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** ',s,' матрица [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s1:='сортированный вектор ср.значений нечетных столбцов'; Writeln(s1); a.Cols.Select(x->x.Average).Where((x,i)->i.IsEven).Sorted.Println; Writeln(s1.Length*'-'); end;
begin Cheburek('первая'); Cheburek('вторая'); end.
Пример Количество строк в матрице: 4 Количество столбцов в массиве: 8 *** первая матрица [4,8] *** 98 -64 -30 84 -6 11 4 7 -45 23 55 47 67 87 70 -64 40 20 91 -27 -12 42 -49 10 -59 -79 5 -77 -59 -44 -4 -10
--- gfortran 6.3 --- program prog1 integer N, k, i, j real a(10,10) read *, N print *, 'Матрица:' do i = 1,N do j = 1,N a(i,j) = sin(1.0*i+1.0*j/2) end do end do do i = 1, N print *, (a(i,j), j=1,N) end do k = 0 do i = 1, N do j = 1, N if(a(i, j) > 0) k = k+1 end do end do print *, k end
