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
1) достать муку
2) добавить воду, соль, яйца
3) перемешать
4) налить в сковороду
5) поставить на газ
6) включить газ
7) ждать 5 мин
8) выключить газ
9) положить блин на тарелку
Всего 294 символа в тексте. Как правило 1 символ = 8 бит.
соответственно - 294*8=2352 бита.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(50,1,999);
a.Take(40).Println;
a.Skip(40).Println(NewLine)
end.
<u><em>Тестовое решение</em></u>
164 67 626 431 758 259 924 741 796 179 989 880 813 112 832 970 662 970 558 5 833 343 694 379 297 192 565 147 611 302 284 925 784 98 61 895 907 190 208 679
55
195
206
597
664
762
201
452
965
298
Скорее всего это 1, ну мне так кажется)