Во Алгоритм какого типа описан на алгоритмическом языке?

Варианты ответов
циклический
линейный
вс разветвляющийся
Во Алгоритм какого типа записан на алгоритмическом языке?

Варианты ответов
циклический
линейный
вс разветвляющийся
Во Определите значение переменной b после выполнения данного алгоритма

во фото, во фото, во фото. с решением

1.
var a:array [1..4, 1..4] of integer; i, j, max: integer;
Begin
    for i := 1 to 4 do
        begin
        for j := 1 to 4 do
            read(a[i][j]);
        readln;
        end;
    max := a[1][1];
    for i := 2 to 4 do
        if max < a[i][i] then max := a[i][i];
    writeln(max);
End.

2.
var a:array [1..5, 1..5] of integer; i, j, m, sum: integer;
Begin
    for i := 1 to 5 do
        begin
        for j := 1 to 5 do
            read(a[i][j]);
        readln;
        end;
    readln(m);
    sum := 0;
    for i := 1 to 5 do
        if (m - i > 0) and (m - i < 6) then
            sum := sum + a[i][m - i];
    writeln(sum);
End.

3.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, max: integer;
Begin
    for i := 1 to N do
        begin
        for j := 1 to N do
            read(a[i][j]);
        readln;
        end;
    max := a[1][N];
    for i := 2 to N do
        if (max < a[i][N + 1 - i]) then
            max := a[i][N + 1 - i];
    writeln(max);
End.

4.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, count: integer; sum: real;
Begin
    for i := 1 to N do
        begin
        for j := 1 to N do
            read(a[i][j]);
        readln;
        end;
    sum := 0;
    count := 0;
    for i := 1 to N do
        if (a[5][i] mod 2 = 1) then
            begin
                sum := sum + a[5][i];
                inc(count);
            end;
    sum := sum / count;
    writeln(sum);
End.

5.
var a:array [1..4, 1..4] of integer; i, j, upper_sum, lower_sum: integer;
Begin
    for i := 1 to 4 do
        begin
        for j := 1 to 4 do
            read(a[i][j]);
        readln;
        end;
    upper_sum := 0;
    lower_sum := 0;
    for i := 1 to 4 do
        begin
        for j := i + 1 to 4 do
            upper_sum := upper_sum + a[i][j];
        for j := 1 to i - 1 do
            lower_sum := lower_sum + a[i][j];
        end;
    writeln(upper_sum);
    writeln(lower_sum);
End.

1. Определим количество точек по сторонам изображения.
dpi - это количество точек на одном дюйме, а дюйм приблизительно равен 2.54 см.
Тогда изображение по одной из сторон будет содержать 10/2.54×600 ≈ 2362 точки, а по второй - 10/2.54×1200 = 4724 точки.
2. Для хранения информации о цвете каждой точки требуется 2 байта.
3. Определим информационный объем файла
2362×4724×2 = 22316176 байт. Это длинная запись величина, поэтому переведем её в более крупные единицы
22316176 байт = 22316176/1024 Кбайт ≈ 21793 Кбайт = 21793/1024 Мбайт ≈ 21.28 Мбайт

Выбирайте любой из ответов - в байтах, Кбайтах, Мбайтах