Сжатие флагов . Битовый графический формат GIW использует следующий алгоритм сжатия данных. Каждая строка - id1609481520200630 от Sem0001 30.06.2020 00:10

Question

Информатика: Сжатие флагов . Битовый графический формат GIW использует следующий алгоритм сжатия данных. Каждая строка сжимается отдельно. Каждый цвет задаётся трёхбуквенным кодом. Последовательность пикселей одного цвета кодируется парой (в скобках): первый член пары - код цвета, за ним после запятой указывается число пикселей этого цвета. Например, две пары (gre, 20) (whi, 13) кодируют строку с 20 зелеными пикселями, за которыми следуют 13 белых пикселей. Вопрос: Даны 4 файла с изображениями флагов. Все флаги

Sem0001 · Accepted Answer

Const n=10; m=5;
var a:array[1..n,1..m+1] of integer;
i,j,k,sp,s:integer;
begin
Randomize;
writeln(' Результаты соревнований');
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
begin
a[i,j]:=random(50)+50;
write(a[i,j]:4);
s:=s+a[i,j];
end;
a[i,m+1]:=s;
writeln(s:5);
end;
write('k='); readln(k);
sp:=0;
for i:=1 to n do
if a[i,m+1]>=k then sp:=sp+1;
writeln('sp=',sp);
end.

Пример:
Результаты соревнований
69 52 91 62 65 339
70 53 96 56 97 372
78 98 94 61 62 393
62 86 50 58 95 351
82 98 53 56 81 370
75 64 56 85 54 334
69 99 53 72 97 390
55 75 66 59 61 316
99 71 83 75 51 379
91 73 53 88 79 384
k=350
sp=7

MOGZ ответил