Хмм... Ну...
0 = треуг треуг треуг
1 = треуг треуг квадрат
2 = треуг квадрат треуг
3 = треуг квадрат квадрат
4 = квадрат треуг треуг
5 = квадрат треуг квадрат
6 = квадрат квадрат квадрат
7 = треуг треуг круг
8 = треуг круг треуг
9 = треуг круг круг
10 = круг треуг треуг
11 = круг треуг круг
12 = круг круг круг
13 = квадрат квадрат круг
14 = квадрат круг круг
15 = круг квадрат круг
Фух....
Uses crt;
const n=5;
m=5;
var a:array[1..n,1..m] of integer;
i,b,j,k:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(40)-20;
write(a[i,j]:3);
end;
writeln;
k:=1;
b:=20;
repeat
for i:=k to k do
for j:=1 to m do
if (a[i,j]<b) then b:=a[i,j];
writeln(b);
inc(k);
b:=20;
until k>n;
end.
Каждый пиксель = 3 байта
Количество пикселей: 640 * 480
Изображение занимает: 640 * 480 * 3 (байт)
Скорость передачи: 28800 бит/с = 3600 байт/с
Итого, времени нужно: 640 * 480 * 3 / 3600 = 256 (с)
Проще:
даётся 4 байта или 16бит для целого числа, 1бит отводится на разрядность, если он 0, то число отрицательное, иначе положительное, остальные 15 бит хранят само число