Uses Crt;
const n=11;
type Vec=array [1..n] of integer;
var F: Vec;
i, Col, el,Rez: integer;
flag: boolean;
begin
for i:=1 to n do
begin
F[i]:=10+random(90);
if (F[i] mod 2 <>0) then Col:=Col+1;
end;
flag:=false;
for i:=1 to n do
if (F[i] mod 2 = 0) then
begin
flag:=true;
el:=F[i];
exit;
end;
Rez:=Col*el;
Writeln(' Rez = ', Rez);
ReadLn;
end.
Звук в компе храниться в разных аудио файлах к примеру как mp 3 они открываются программой от майкрасофт виндовс меедиа плеер он открывает мп 3 и разные тому подобные файлы но я не понял точно можите обьяснить?
1 килобайт = 1024 байт
3*1024= 3072
3072+720=3792
Ответ: 3792 байт
Ответ:
program Example;
var
a, b: Double;
begin
Write ('Введите длину и ширину участка: ');
ReadLn (a, b);
WriteLn ('Площадь = ', (a + b) * 2 :10 :2);
ReadLn;
end.
Var a:array[1..10] of integer;
k,n,i:integer;
min:INTEGER;
begin
randomize; N:=10; k:=0 {кол-во отрицательных элементов};
writeln ('исходный массив');
for i:=1 to N do
begin
if random(2) =1 then a[i]:=random(100)
else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
write(a[i]:5);
end;
writeln;
{поиск минимального положительного}
if (k<>0) or (k<>N) then {есть отрицательные или не все отрицательные}
begin
for i:=1 to N do
if (a[i]>0) and (a[i]<min) then min:=a[i];
{замена}
for i:=1 to N do
if (a[i]<0) then a[i]:=min;
end;
writeln('Новый массив')
for i:=1 to N do write(a[i]:5);
end.
