Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
x : array [1..15] of integer;
i : integer;
min : integer;
kol_nol : integer;
begin
kol_nol : = 0;
for i: =1 to 15 do
write ("введите элемент массива: ");
readln(x[i]);
end;
min : = x[1];
for i : = 0 to 15 do
if (x[i] > 0) then
if (x[i] < min) then
min : = x[i];
if (x[i] = 0) then
inc(kol_nol);
writeln(min);
writeln(kol_nol);
640*480=307200
256 цветов кодируется 1-м байтом
307200 байт
512кбайт=524288 байт
не более 1 страницы
program;
max,val: integer;
label
start, ends;
max: =-50;
val: =50;
start:
if val> max then val: =val-10
if val=max then goto ends;
goto start;
ends:
end.
обьем вини изначальный
прирост от меда
прирост от сгущенки
время реализации прироста
время худенья
радиус дверей
Популярные вопросы