1. напишите программу, которая считывала бы элементы главной диагонали матрицы из файла matrix.txt. 2. напишите программу, которая удаляла бы k-столбец (1 3. напишите программу, которая считывала бы все элементы матрицы из файла matrix.txt и записывала бы их в массив, соответствующего размера. отсортируйте все столбцы матрицы по убыванию. полученный массив запишите в файл matrix_sort.txt. 4. дан текстовый файл, содержащий целые числа. удалить из него все четные числа. 5. в данном текстовом файле удалить все слова, которые содержат хотя бы одну цифру. 6. напишите программу, которая считывала бы саму себя и выводила бы на экран дисплея исходный текст программы в обратном порядке. 7. имеется файл с текстом. осуществить шифрование данного текста в новый файл. осуществить расшифровку полученного текста.

составим таблицу, и заполним её ячейки плюсами и минусами (запись "-2" обозначает "ставим минус в ячейку 2"):

1} с не знает перc: -2  

2} для м родной тур: +8

3} ю не знает по-тур ни слова:   -16

4} м нужен переводчик, чтоб говорить с ю, значит ю не знает тур: -12

5} никого, кто владел бы одновременно и арм, и тур -> м не знает арм: -5

6} а говорит по-перс: +10

7} c переводчик между м и а, но а говорит по перс, значит м не знает перс: -6

8} второй язык м - греческий: +7

9} м и а в переводчике, значит а не знает гре: -11

10} второй язык а - арм: +9

11} с переводил для а, значит он знает арм: +1

12} нет общего языка для с а ю, значит ю не знат арм: -13

13} ю знает два языка - перс и гре: +14 +15

14} нет общего языка для с а ю, значит с не знает гре: -3

15} второй язык с - тур: +4

ответ:

салал - армянский и турецкий

мохаммед - греческий и турецкий

абдулла - армянский и персидский

юсуф - персидский и греческий

var

    i,n, pol: integer;   //pol - количество положительных чисел, n - количество всех чисел

    a,s: real;   //a- вводимое число, s - сумма положительных чисел

begin

  pol: = 0;   //обнуляем счетчик

  s: = 0;  

  writeln('введите количество чисел');

  readln(n);

  for i: = 1 to n do

  begin

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

    readln(a);

    if a > 0 then

    begin

      s: = s + a;

      pol: = pol + 1;  

    end;

  end;

  writeln('среднее арифметическое положительных чисел:   ', s / pol);   {среднее арифметическое равно сумме чисел делить на их количество}

end.