4 строки (если считать верхнюю), 3 столбца
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var ЕстьКусков,НадоКусков:integer;
Readln(ЕстьКусков,НадоКусков);
var Длины:=ReadArrInteger(ЕстьКусков);
var ОбщаяДлина:=Длины.Sum;
if НадоКусков>ОбщаяДлина then Writeln(0)
else begin
var ДлинаКуска:=ОбщаяДлина div НадоКусков;
repeat
if Длины.Select(Кусок->Кусок div ДлинаКуска).Sum >=НадоКусков then break
else ДлинаКуска-=1;
until false;
writeln(ДлинаКуска)
end
end.
<u>Пример</u>
4 11
802 743 457 539
200
Ответ:
Изображение представлено дискретно.
Объяснение:
Изображение представляется в виде пикселей (этаких точек). Каждой точке присваивается ряд различных количественных значений: номер цвета, контрастность и яркость. Их градации не плавные, а с разрывами.
//Dev-C++ 5.11 (C)
#include <stdio.h>
int main()
{FILE *inp,*outp,*para;
int n=1,i;
char c,ckar;
inp=fopen("input.txt","rt");
para=fopen("input.txt","rt");
outp=fopen("output.txt","wt");
c=fgetc(inp);
while (c!=EOF)
{if (c=='\n')
{if(n>6) for(i=0;i<n;i++)
{ckar=fgetc(para);
fputc(ckar,outp);}
else
for(i=0;i<n;i++)
ckar=fgetc(para);
n=0;}
c=fgetc(inp);
n++;}
if(n>6)
for(i=0;i<n-1;i++)
{ckar=fgetc(para);
fputc(ckar,outp);}
else
for(i=0;i<n-1;i++)
ckar=fgetc(para);
return 0;}
Видимо, это фрагмент программы на VB, привязанный к клику по кнопке Button4 на некоторой форме.
<span>Private Sub CommandButton4_Click()
</span><span><span>Max = 0
</span> For j = 1 To n
For i = 1 To m
If Max < a(i, j) Then Max = a(i, j)
Next i
Next j
TextBox2.Text = TextBox2.Text + Str(Max) + " "
End Sub</span>
Здесь ищется, а затем выводится в поле на форме максимальный элемент двухмерного массива, который извне и заполнен некоторыми значениями. Оператор ReDim я убрал, потому что он уничтожит содержимое массива.