БЛОК-СХЕМА
Что я делаю не так Препод не принимает

Ввести матрицу KR порядка N*M. Определить количество элементов, кратных 5

//Pascal ABC.NET 3.1 сборка 1219

Type
 ty=array[1..60] of integer;

Var
 a,b,c:array[1..20] of integer;
 ar:ty;
 n,m,k,i:integer;

procedure quicksort(var a:ty; Lo,Hi: integer);

procedure sort(l,r: integer);
var
i,j,x,y: integer;
begin
i:=l;
 j:=r;
 x:=a[random(r-l+1)+l];
repeat
while a[i]<x do
 i:=i+1;
 while x<a[j] do
 j:=j-1;
  if i<=j then
   begin
    if a[i] > a[j] then
     begin
      y:=a[i];
 a[i]:=a[j];
 a[j]:=y;
     end;
    i:=i+1;
 j:=j-1;
  end;
    until i>=j;
  if l<j then sort(l,j);
  if i<r then sort(i,r);
end;

begin;
  randomize;
  sort(Lo,Hi);
end;

 begin
 readln(n);
 for i:=1 to n do
 begin
  readln(a[i]);
  ar[i]:=a[i];
 end;
 readln(m);
 for i:=1 to m do
 begin
  readln(b[i]);
  ar[i+n]:=b[i];
 end;
 readln(k);
 for i:=1 to k do
 begin
  readln(c[i]);
  ar[i+n+m]:=c[i];
 end;
 quicksort(ar,1,n+m+k);
 writeln('Final array:');
 for i:=1 to n+m+k do
 write(ar[i]:4);
end.

Пример ввода:
3
1
2
3
3
1
2
3
3
1
2
3
Пример вывода:
Final array:
   1   1   1   2   2   2   3   3   3

по первому заданию:

 

обычно глубина цвета (не изображения) измеряется в битах.

Посмотрим сколько всего бит у нас есть:

384 килобайта = 384*1024 байт = 393216 байт

в каждом байте 8 бит, значит 393216*8 = 3145728 бит.

теперь посмотрим сколько у нас всего пикселей:

1024*768 = 786432 пикселей.

 

Посмотрим сколько у нас получается бит на каждый пиксел.

Разделим биты на пикселы:

3145728/786432 = 4 бита на пискел.

4 бита на пискел это 2^4 = 16 цветов.

 

ответ: глубина цвета изображения 4 бита или 16 цветов.

 

 

2ое задание:

Длина кода изображения равна 600 Кб, битовая глубина цвета - 16 битов. Какой размер растра используется для вывода изображения: 640х480 или 1024х768?

у нас есть 600Кб информации. 

Посмотрим сколько это бит

600(килобайт)*1024(байт в килобайте)*8(бит в байте) = 4915200 бит.

У нас каждая точка(пиксел) занимает 16 бит

Значит у нас: 4915200/16 = 307200 пикселей.

 

Посчиатем пикселы для разных разрешений (размеров растра)

640*480=307200

1024*768 = 786432

 

Значит ответ: размер растра у нас 640*480. (совпадают количества пикселей)