Задание 1. Определите понятия, которые явле нием множеств. а) Малина, ежевика, голубика, брусника, земляни б) капуста, морковь, лук, огурец, помидор; в) яблоко, груша, слива, персик; B) MHC г) мне д) мін б) г) волк, заяц, лиса, медведь; д) корова, коза, свинья, собака, котка; е) 0, 1, 2, 3, 4, 5, 6, 7, 8, 9; ж) А, Е, Е, И, О, У, ы, Э, Ю, Я; - 3) клавиатура, мышь, сканер, микрофон.

Var
  f: text;
  i, j, n, n1: integer;
  matrix: array[,] of real;
begin
  assign(f, 'informat8.txt');
  reset(f);
  //найдём количество строк в матрице
  while not eof(f) do
   begin
    readln(f);
    inc(n);
  end;
  writeln('исходная матрица размерности ', n, 'x', n);
  //инициализируем массив (размерность узнали выше)
  matrix := new real[n, n];
  reset(f);
  // далее работаем с матрицей размерности [0..n-1] (инициализация происходит, начиная с 0)
  for i := 0 to n - 1 do
  begin
    for j := 0 to n - 1 do
    begin
      read(f, matrix[i, j]);
      write(matrix[i, j]:8:2);
    end;
    readln(f);
    writeln;
  end;
  writeln;
  n1 := 0;
  for i := 0 to n - 1 do
    for j := 0 to n - 1 do
      if matrix[i, j] < 0 then inc(n1);
  if n1 > round(n * n / 2) then
  begin
    writeln('Отрицательных элементов больше половины');
    //удваиваем элементы в чётных строках
    for i := 0 to n - 1 do
    begin
      if odd(i) then begin
        for j := 0 to n - 1 do
           matrix[i, j] := matrix[i, j] * 2;
      end;
    end;
  end else
  begin
    writeln('Отрицательных элементов меньше половины или ровно половина');
    //удваиваем элементы последнего столбца
    for i := 0 to n - 1 do
      matrix[i, n - 1] := matrix[i, n - 1] * 2;
  end;
    writeln('результирующая матрица');
  for i := 0 to n - 1 do  begin
    for j := 0 to n - 1 do
      write(matrix[i, j]:8:2);
    writeln;
  end;
end.

Результат работы:

A)Pascal
Var
 a,b,c,d, average: real;
 Begin
   Writeln('Введите 4 числа, каждый ввод закончить нажатием кнопки Enter');
    readln(a,b,c,d);
    Average:=(a+b+c+d)/4;
   Writeln('Среднее Арифметическое 4-х чисел = ',Average);
 end.

b) 
 var 
   Age,High:integer;
  Ves:real;
begin
 Writeln('Введите Возраст');
  readln(age);
 Writeln('Введите Рост);
 readln(high);
Writeln('Введите вес);
readln(ves);
Writeln('Ваш возраст ',age,'Ваш Рост ', high, ' Ваш Вес ',ves);
end.

C) 
var 
 n:integer;
begin
 Writeln('Введите Число N');
 readln(n);
 n:=n*n;
Writeln('Квадратный корень равен= ',n);
end.