Паскаль. дана матрица к (5 на 5 найти минимальный размер элемента в строчке 4, и заменить этим значением все элементы главной диагоналиэлементы матрицы вводить с клавиатуры или рандома).

Const
  n=5;
var
  a:array[1..n,1..n] of integer;
  i,j,amin:integer;
begin
  Randomize;
  Writeln('Сгенерированный массив');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(50)+1;
      Write(a[i,j]:3)
    end;
    Writeln
  end;
  amin:=a[4,1];
  for j:=2 to n do
    if amin>a[4,j] then amin:=a[4,j];
  for i:=1 to n do a[i,i]:=amin;
  Writeln('Результирующий массив');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:3);
    Writeln
  end
end.
 
Тестовое решение:
Сгенерированный массив
 14 26 14 37 27
 27 24 37 17 38
 36 22 41 29 14
 13  7 32 42 27
 27 28 21 10 26
Результирующий массив
  7 26 14 37 27
 27  7 37 17 38
 36 22  7 29 14
 13  7 32  7 27
 27 28 21 10  7

1)
var
    s: string[6];
    n: integer;

begin
    s := 'отлично';
    n := length(s);
    writeln(length('отлично'));
    writeln(n);
end.

Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6

2) рисунок

3)var
    s, s1: string;
    n: integer;

begin
    s := 'информатика';
    s1 := copy(s, 3, 5);
    n := pos(s, s1);
    writeln('s=', s);
    writeln('s1=', s1);
    writeln('n=', n);
end.

Вывод
s=информатика
s1=форма
n=0

Все верно, в s1 не содержится s, а наоборот

16 бит

Объяснение:

I = t * f * i * k, где  

I - информационный объём аудио файла (размер файла, содержащего запись звука)

t - общая длительность звучания (секунды)

f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)

i - глубина звука (разрешение) (число бит, используемых для хранения каждого измеренного значения)

k -  количество каналов записи (1 - моно, 2 - стерео и т.д.)

Дано:

k = 1

f = 10 240 Гц

t = 3 сек

I = 60 Кбайт = 491 520 бит

Найти:

i

I = t * f * i * k

i = I / (t * f * k)

i = 491 520 / (3 * 10 240 * 1) = 491 520 / 30 720 = 16 бит